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2 JACORN NIEUWS)UIT DE FEDERATIE 


Voorzitter: Secretaris: Penninsmeester: 

K. DOtzes. A. Jonsetins. Ta. van Kempen. 
Wilkemahmerd 67 Klokkensietershoeve 5 Het Purven 71, 

373E BN Groninsen. 73526 SB Apeldoorn. 5672 RB Nuenen 
Telf 058 — 417042 Teit DSS — 417314 Telt 848 — 356210 
Ctub-winkel Hard-ware cie. Redaktie Acorn Nieuws 
N. STAD P, Ehrlich. H. Reinders, 
Plataanwes 47, Roostentaan 266 Leeuwarderstraat B, 
1544 PB Zaandijk 5644 B8 Eindhoven 9718 HX Broninsen. 
Telf. 075 — 28899E Terr. DAD — 114183 Telt D5B — 125458. 
Giro 5244295 BANK 52.84.63. 010 


Postsiro van de hank: 1150220 ABN Eindhoven. 
Beide t.n.v. Pennineneenter Acorn computerclub. 
Eindhoven. 


Redactie ACORN NIEUWS: 


Rudi van Drunen — hardware 
Frans van Hoesel — assembler 
Hans Marks = basic 
Henk Reinders = jayout 
Bandijesarchiet: 
Redactie Acorn Nieuws: P. Grevelt, 
Postbus 1058 Swalmstraat 12 
9708 BA Groninsen. 1784 CP Den Helder 
Telt Q58 — 125458 Tetf Q2230 — 57058 
Datasheets: Drukwerkarchief: 
B. Akkermans. F. Monsato 
Wikke 1 Biesbosch 153 
1275 BR twizen. 8852 VD Zwolle, 
Tetf D2152 — 60294. 
Uiterste datum inieverins copy? 
NR 7, 26 -18 = 1984, 
NR 1, 18 -12 — 1984, 
DE CLUB-WINKEL: 
Geheusenkaart: 15 KByte extra in de ATOM fl. 4,89 
Schaketkaartt meerdere EPROM's op Axxx Cinct. 7LS133) ti. SO, 23 
Prosrammerkaart: zelf prosrammeren van EPROMs ti. 21,92 
Bis Benny erintsinct, Ciock IC MSM SE32RS fl. 42.58 
Minischakelkaart fi. 16,88 
Herdfuk ACORN NIEUWS 1982: 97 pag. wetenswaardioheden tt. 6.00 
Jaarsans 1985: totaal ruim 450 pas. fl. 30. 08 
ATOM-WARE deel 1} machinetaal op de ATOM 98 pas. ti, 6.08 


Bestel ten: 

Bij Uw regionale pannins-meester. 

Rechtstreeks bij de federatieve penninsmsester: dan fl. 4.00 extra 
voor garto-kosten. 

Archiefdiensten: 

Voor bandjes, datasheets, EPROMS en alte andere vormen van dienst 
verlenins kunt U terecht bij de regionale archiefdiensten. Mocht in 
Uw rasin iets ontbreken, dan helpt het resionale bestuur U verder 
O5 Weg. 


LINHOUD 
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pas. 
pas. 
eas. 
Pas. 
pas. 
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pas. 
sad. 
pas. 
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pas. 
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pas. 


AOM B id hi 








Uit de federatie 

Inhoud. 

Waar kunnen we naar toe. 
Uit de federatie. 
Uitstas enavete. 
Interrupts. 

Extra variabelen. 
Kasboek. 

Gaas rom. 

Statement create. 

3 — Draw 

Error handler. 

EE47 video variatie's. 
Wist U dat al. 

ESDE tracer. 

Voorraad beheer, 

Cataor secreendump. 
Tekplat. 

Verborsen 6502 instruktie' s, 
Ward-pack Wijziging. 

De nieuwe schaketkaart. 
Het Noord-hol tandse telefoon modem. 
De floatins point. 
Symbolische assembler. 
Buick sort. 

Intikken en runnen Maar. 
Pran, 

Savare 

Hi ist. 

Conversion. 

1200 baud routines. 

Pis Benny onder interrupt. 
EXEC 

Side scrolt. 

PRTALL-18X 

Cosscoon 

Header Disateom. 

Muziek. 


ACORN NIEUWS Uitsave van de fed. Acorn Computerclubs N/B 
Verschijnt & — B keer per jaar. 
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16 OKT 
28.08 UUR 
17 OKT 
13.28 UUR 
27 DKT 
18. 20 UUR 
23 OKT 
20.08 UUR 
1 _ NOV 
20. 20 UUR 
2 NOV 
15. 28 UUR 
3 NOV 
12.38 UUR 
3 NOV 
12.58 UUR 
5 NOV 
20.20 UUR 
5 NOV 
20.28 UUR 
8 NOV 
19.38 UUR 
14 NOV 
20. 88 UUR 
i4 NOV 
20. 23 UUR 
14 NOV 


19. 30 UUR 


1384 


1584 


1384 


1384 


13984 


1384 


1384 


1384 


1954 


1984 


1984 


1384 


19854 


BRABANT 


NODRD 


BELGIE 


ROTTERD 


BRABANT 


LIMBURG 


NOORD-H 


OV/GELD 


ARNHEM 


DELFT 


NOORD 


CENT RIM 


TWENTE 


NOORD 


DE WERFEF 
v/D WERFFSTRAAT 
EINDHOVEN, 


M van VLISSINGEN 
ACHTER DE GROTE KERK 25 
LEEUWARDEN. 


OXACO-CEPENBERGCENTER 
BORSBEËKSE STEENWEG 45. 
BOECHOUT £ BIJ HOVEN 


SPEELTUINGEBOUW HET WESTEN 
SPAANSEWEG 36 
ROTTERDAM-WEST. 


GEBOUW B. R‚A.N. 
HEUVEL 7 
VORSTENBOSCH. 


ZAAL RUIVENEERS 
STATIONSSTRAAT 25 
SITTARD 


DE KOPEREN KNOOP 
LIMEURG VAN STIRUMSTRAAT 
AMSTERDAM, 


WIJKCENTRUM DE BOLDER. 
DOBBE 62 
ZWOLLE, 


t.& POSTGIRO 
VELPERWEG S5-A. (ketder) 
ARNHEM. 


E-KAFE 
GEBOUW ELEKTRO TH WIJK 
DELFT, 


MUNSTERHOES 
MUSTERHEERD. 
GRONINGEN, 


DE LANTAERN 
UTRECHTSESTRAATWEG 4 
NIEUWEGEIN. 


MEPA-GEBOUW 
WIERDENSESTRAAT 40 
ALMELO 


M van VLISSINGEN 
ACHTER DE GROTE KERK 25 
LEEUWARDEN. 
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15 NOV 


29.88 UUR 


2@ NOV 


20.88 UUR 


2E NOV 


22.08 UUR 


1 DEC 


12,58 UUR 


5 DEE 
20,28 UUR 
3 DEC 





15,38 UUR 


12 DEC 


28.29 UUR 


15 DEC 


13.38 UUR 


is DEC 


z0. 08 UUR 


15 DEC 


12.59 UUR 


15 DEC 


19.38 UUR 


1354 


1384 


1984 


1384 


1384 


1984 


1984 


1984 


1384 


1954 


1984 


1384 


1954 


DEN HAAG EXDDUSKERK 
BERESTE INLAAN 
DEN HAAG. 





BRABANT DE WERFF 
V/D WERFFSTRAAT 
EINDHOVEN. 


ROTTERD SPEELTUINGEBOUW HET WESTEN 
SPAANSEWEG 28 
ROTTERDAM-WEST. 


NDDRD-H DE KOPEREN KNOOP 
LIMBURG VAN STIRUMSTRAAT 
AMSTERDAM. 


DELFT E-KAFE 
GEBOUW ELEKTRO TH WIJK 
DELFT. 


ARNHEM t‚a POSTGIRO 
VELPERWEG SE-A (kelder). 
ARNHEM. 


BRABANT GEBOUW BR. A.M. 
HEUVEL 7 
VORSTENBOSCH. 


LIMBURG ZAAL HUIVENEERS 
STATIONSSTRAAT 25 
SITTARD 


TWENTE MEPA-GEBOUW 
WIERDENSESTRAAT 40 
ALMELD. 


NOORD MUNSTERHOES 
MUSTERHEERD. 
GRONINGEN, 


TENTRUM DE LANTAERN 
UTRECHTSESTRAATWEG 4 
NIEUWEGEIN, 


DV/GELD WIJKCENTRUM DE BOLDER. 
DOBEE E62 
ZWOLLE. 


BELGIE OXACD-CEPENBERGCENTER 
BORSBEEKSE STEENWEG 45. 
BOECHGGST € BIJ HOVEN 
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FEDERATIEVE VERGADERING: 

Zaterdas 9 september 1984 is er wen federatieve versaderine 
Sehouden in Amsterdam. Behalve Zeetand — met keriissevins afwezia — 
waren alie vresic's vertesenwourdisd. Danka: s het zeer nauwkeurige 
naeluis Werk en vitsebreide verstas van onze waarnemend 
Penninsmeester Theo van Kemper is er decharse verleend aan het 
bestuur voor de financiele resuttaten. 

Tevens iS het bestuur uitsebreid en de namen en adressen vindt U op 
Pasina 2. 











STATUTEN: 

Dok is er bestoten tot een statuten Wijzisins. Koos Ottes zal eind 
oktober alle resio's sen concept doen toekomen van de nieuws 
federatieve en resionale statuten. In janvari zal er weer veraaderd 
WOrden waarbij alle resio'’s amendementen Kunnen indienen. Het is de 
bedoelins om op deze versaderins het eers te worden over de inhoud. 
Deze procedure wordt gevotsd cm oP de àtgemene federatieve 
versaderins zonder discussie de statuten te kunnen soed keuren. 





LIDMAATSCHAP : 

Ten aanzien van net lidmaatschap van de federatie en de CONTributie 

betaltins is een belansrijk besluit senomen, De contributie dient 
z door de ‘federatie te zijn ontvansen om het 

sanvari nummer van Acorn Nieuws te kriieen. Ook is bestoten dat 

leden die op_15 februari 1985, hun contributie niet betaa!d hebber: 

Worden sergyveerd. 

Tevens is in principe bestoten dat iemand tid is van zen resia 

Wwarmeer hij zijn contributie aan de federatie heeft betaald 








DE AÈCEPT-GIROKAART: 

In dit nummer treft U de Sirosacceptkaart aan voor de contributie 
van 1985. In verband met het bovenstaande is het raadzaam op tijd 
te betalen. Is Uw betalins te laat dan kunt U Acorn Nieuws pas 
Krijgen na betalings van fi. 4:28 porto en administratie kosten. 

We hebben deze maatregel moeten nemen om te voorkoten dat de 
penninsmeester in mei NO bezia is met CONTFibutie=innins en het 
daaraan sekoppelde nasturen van Acorn Nieuws. 


DUS BETAAL OP TIJD EN VOORKOM NAWERK, 
dr EN VOORKOM NAWERK, 


PRINTEN: 

Als alles soad is sesaan worden op dit moment {hatf oktober) de 
bestelde printen uitseleverd, Zij die de bestel lins seplersd mebben 
voor de prijsverhosing krijsen de printen viteraard voor de oude 
Prijs. De seheusenkaart is soedkoper Uitsevalten dan in eerste 
instantie was opseseven. Zij die zodoende teveel hebben betaald 
krijsen dit in de tweede helft van oktober terussestort. 

De bestellins en betalins van de kaarten dient aan de 
penningmeester te seschieden. De leverins sebeurt goor Nico Stad. 
Er wordt in het vervols niet eerder seteverd voordat de betaling is 
3eSschied, Verrekeninsen met contributie's blijven zodoende 
achterwese, 
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LEDEN-ADMINISTRATIE: 

De leden administratie zat worden sedaan door Koos Ottes 
Adreswijzigingen dienen dan ook aan hem te werden sestuurd. Nieuwe 
leden warden vitstuitend inseschreven via de penningmeester wanneer 
de contributie iS betaald. 


REGIO-BLADEN: 

Bansezien er leden zijn die araas een abonnement witten hebben op 
resia-bladen vit andere resio's wordt er in ACORN NIEUWS een lijst 
nesenomen mrt de abonnements prijs van reainbladen. 

De resic's werden zodoende verzocht voor 15 november 1984 mede te 
deten hun abonnementsprijs &n bij wie het abonnement Kan worden 
opgesevern. 


REGIONALE VERGADERINGEN: 

Januari en februari Zijn de maanden waarin de meeste resionale 
tedenversaderingen Warden sehoudern. Het bestuur heeft bestoten voor 
iedere resig sen halve pagina te reserveren Uitstuitend om de datum 
en aeznda te vermetden. Resio's die hiervan sebruik willen maken 
dienen de asenda tiidie in te sturen. 


INMDUD SEHIJF OKTOBER: 











GAGSROM DEFF 01080 POE AN. nr. & biz 
GAGDEMD 2 E2EZ GEEDD BIZ A.N. nr. 6 blz 
KASBOEK AFAF 820E3 BIS AN. nr. 6 biz 
EXVAR AFAF O189C DSE A.N, nr. E biz 
LVAR AFAF DOOTIEB BE7 A.N. nr. BE biz 
HEADERD AFAF GO404 BER A.N. nr. 6 biz 

NM I AFAF B2Z54 B7B AN. nr. & biz 
E-DRAW aFaF 2CAF 874 AaN. nr. B biz 
ERRORHL AFAF GOAIS BAL A‚N. nr. BE biz 
TRACER AFAF GY3B3 BAC A.N. nr. 6 biz 
VODRRD AFAF @ISES DBE A‚N. nr. 6 biz 

mn | 2089 AAB7D BET AN. vr. 6 blz 
VERP vaan PAASEE BCD AN. nr. EB blz 
PRON AFAF Z@2DB BDE A.N. nr. & blz 
EDLDUMP AFAF D8ICS ADE A.N, nr. B biz 
TEKP. P AFAF GiDES DED A‚N. nr. BE blz 
TEST1 RFAF DOD4TF FE A.N. nr. E biz . 
TESTE AFAF 28742 192 AN. nr. & biz 6. 
TEKP,T 1D39 GAZUD IAB A.N. nr. E biz EU. 
GR-CDPY : AFAF OD7ES 18E A.N. nr. 6 blz 63, 
1200. de 7 AFAF DALES LIE A.N. nr. B biz 4. 
SOUARE AFAF DU447 i1B A.N, nr. 5 biz Si. 
DOBBEL 2 AFAF GOES? iZU A.N. nr. 5 btz 75. 
DISATOM A02® P1020 12F utility. 

BENINT : AFAF ODGEF IEF AN. nr. B biz 35. 
PUZZEL AFAF O2FOD 144 spelletje. 

HUNCHER AFAF 81999 175 spelletje. 

OUICKSO Af tar AASRA 185 A.N. nr. 6 biz SD. 
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CORRECTIE : 








In de voriss ACORN NIEUWS op cas. staat un het prosramma GRMOD 
reeel) 0 foutief. Deze reset dient aan reset 108 te worden 
toesevoesd, or het assembler haakse “E. Tevens is het 





DPMETKElijke van dit statement dat de Josbex karakters daor BEC 
karakters Zijn vervansen. 


HARWARE COMMISSIE: 

Peter Enrlich is coordinator van de hardware Kommissie seworden en 
heett als zodanie zitting genomen in het bestuur. 

De hardware Lommissie is voorlopis ats volet samensestelt: 

Rudi van Drunen resie Noord. 


Peter Ehriich ". Brabant Oost. 
Leon Heesakkers Li mburs 
Bram Poot ER Twente 


DE ENQUETE: 
De totale uitstas van de =vauete Ureft U oP dt volsende pasina' s 
aan. Iedere regio heeft n totale vitslas van atle resio's 





emtvansen. In uw eisen ree blad zulten de eisen resultaten wei 
vermeld worden. 
Het meest opvallende van de enauete is Wel het enthousiasme wat in 


de zlub leeft, Bijna 40% van de leden heeft de enquete insestuurd 
hetseen een bijzonder hose score iS. 








Ook is er een duidelijk verschil te zien tussen leden die hun 
reeioravond bezoeken en zij die dit niet doen. De bezoekers 
beschikken over meer soft- en hardware dan desene die thuis 
blijver. Dit verschil vit zich bijv. door het sebruik van de 





ToOlkit, die meestal aeleverd wordt door de leverancier van de 
ATOM, daar de bezoekers over het algemeen de Jos-box en/of P-charme 
Sébruikern. 





Dat er reeds veel ontwikkeld is door een beperkte sroep, is ook 
duidelijk sewarden. Is men eernmaat aan het uitbreiden sesaan: dan 
Wordt „ok aties aan ans ATOMPje septakt wat er maar aan te plakken 
is. 

Duidelijk is ook seworden dat er een “informatie honser" is, en wij 
ats redactie zullen trachten daaraan te voldoen. 

De opmerkingen die aan de ernavete zijn toesevoesd, zijn met 


aandacht eslezen. Maar door de grate Hoeveelheid is het ondoent ijk 
overal ap te reaszten. 


DE VOORPLAAT: 
De voorplaat Komt deze keer uit TEKPLOT van Harns Schwirtz. 


OVERZICHT REGIO-BLADEN: 
Aansezien deze extra pasina ook al bijna Ssevuld is: houdt U het 
ht tesned. 
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LANDELIJK 


AANTAL LEDEN 
AANTAL FORMULIEREN 


LEEFTIJDSVERDEL ING: 
®-16 

17-20 

21-27 

28-55 

36-45 

46-55 

5E 

GEEN ANTWOORD 


BEZOEK REGIO AVONDEN: 

JA 

NEE TE VER 
NIET INTERESSANT 
TE MOEILIJK 
ANDERE REDEN 
GEEN ANTWOORD 


MENING REGIO ACTIVITEIT 
TEVREDEN 
TE WEENIG ACTIVITEIT 
TE MOEILIJK 
NIET TEVREDEN 

GEEN ANTWOORD 


PROGRAMMEERT IN: 
BASIC 

ASSEMBLER 

BEIDE 


RAM GEHEUGEN: 
—-i2 KEYTE 





35-64 vr 
Eb vo 


16 KBYTE GEHEUGENKAART : 
NEE 

CLUBKAART 

ANDERE KRART 


SCHAKELKAART : 
NEE 
CLUBKAART 
ANDERE KAART 





zá 


17 
14 


254 
63 
Ee 


Ee 
172 
7E 
40 





177 
117 





SCHAKELSDF TWARE : 
ASEK-S 

CX 

SOS 

ANDERE SOFTWARE 


EPROM PROGRAMMER: 
NEE 

CLUBKAART 

ANDERE KAART 


E64 KEYTE GEHEUGENKAART : 
TELEC 

EED 

ANDERE KAART 

NEE 


BOOTSTRAP: 
NEE 

SOF TWAREMAT IG 
HARDWAREMAT IG 


OPSLAGMEDIUM: 
ACORN DISKDRIVE 
MDCR 

NORMALE CASSETTE 


GEBRUIK VIAPOORTEN: 
NEE 

PRINTER 

RAM/ROM SCHAKELEN 
EIGEN INTERFACE 


BUDGET UITBREIDINGEN: 
-F. 100 

F.180-F. 200 

FE. 209- 


ZELF PRINT MAKEN: 


TOESTAND COMPUTER: 
ORIGINELE STAAT 
UITBREIDINGEN IN RACK 
ALLES IN RACK 


17 


182 


23á 
Ed 


ss 
55 


15 
z9 
21 
232 


z05 
25 





177 
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INTERESSE ONTWIKKELINGEN: 


88 CHARS VDU 

88 CHARS VDU + GRAPH 
RS 232 INTERFACE 
DISK DRIVE KAART 
PRINTER IF, +BUFFER 
TELEFOON MODEM 

MINI SCHAKELKRART 
BESTURING MODELSPOOR 
KLEURENKAART 


PLB GEBRUIK: 

NEE 

BIG BENNY 
SCHAKELKAART 

RS 232 INTERFACE 
EXTRA VIA/PIA 
ANDER GEBRUIK 


EIGEN HARDWARE: 
NEE 
JA 


INTERESSE PLS KAART: 
Ja 
NEE 


PRINTER BEZIT: 
Ja 
NEE 


ATV 88 

BROTHER CE 58 
BROTHER EP 20 
BROTHER 
CENTRONICS 733 2 
CENTRONICS 
EPSON 

EPSON MX-82 
EPSON MX-32 
FACIT 4519 
HONYWELL BULL TTU 
ITT 3351 

ITT 33 

MIKROTEK 

NEC 8032 

NEC 8023 
OLIVETTI 2300 


Heee De Ee Ne ee EN NL 


VEEL WEINIG 


115 
211 
148 
118 
67 
185 
95 
ge 
tas 


Lid EN 
NOU Ne 


245 
118 


229 
119 


195 
158 


GEEN 
181 15 
81 62 
101 113 
86 167 
125 164 
81 87 
84 177 
84 171 
37 154 


BROTHER CT 5 
BROTHER EP 22 
BROTHER 8508 
COSMOS Se 

CITOH 8309 
EPSON B9 

EPSON RX 89 
EPSON TK-83 
HEATHKIT H-16 
ITOH 8300 

ISE 

IBM BOLKOP 
MICROLINE eg 
NEC 8035 
OLIVETTI TE 300 
OLIVETTI PRAXIS 25 


tl 


rn ON ge ee Dj 
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OLIVETTI TE 218 
PHILIPS 35108 
STAR DELTA 

STAR DP 8450 
SEIKOSHA 


SEIKOSHA GP 100 1 


SIEMENS TELEX 
SMITH CORONA 
TANDY CGP 115 
TANDY LP VII 
TELEX 


INDRUK ACORNNIEUWS : 
ZEER GOED 

GOED 

SLECHT 


OMVANG ACORNNIEUWS: 
GENOEG 

KAN MINDER 

LIEVER MEER 


NIVEAU ACORNNIEUWS: 
TE HOOG 

GOED 

TE LAAG 


PROGRAMMATUUR: 
WORDT INGETIKT 
WORDT GECUPIEERD 
BEIDE 


GEBRUIK UTILITYBOXEN: 
JOSBOX 
ROMAR ROM 
PCHARME 
ASBK BOX 
TOOLKIT 
SOFTTOOL 
SOFT 1 
SOFT 
WORDPACK 
CALC 
SUPERBASIC 
WILLDW RDM 
ANDER BDX 


ENEN 


178 
175 


255 


E=is] 


190 
248 


279 
72 
xx 


257 
202 


34 


101 


133 


OLIVETTI DM 550 1 
PRINT INA 1 
STAR DP S1@ 4 
STAR GEMENI ú 
SEIKOSHA GP 82 7 
SEIKOSHA GP 258 a 
SIEMENS TELEX T57 i 
TANDY GP 115 1 
TANDY DMP 120 1 
TANDY LP VIII 1 
TELETYPE 11 
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INTERRUPTS 


De ESBL kent ZZ vormen van interrust. De NMI (Non Maskable 
Interrupt) en de IRQ (Interrupt ReGvest), waarbij de tweede een 
beleefde vorm van interrupt is welke afhankelijk van de 1 vlas van 
de statusresister wel of niet wordt uitsevoerd. We kunnen van dit 
feit sebruik maken deor Slechts 1 keer een IRG toe te staan en dan 
de 1 vias te setten zodat bij b.v. contactdender niet meerdere 
interruet reauests teselijk moseliik zijn. Met NMI is dit anders 

Hier is er seen vias welke getest wordt en de NMI interrvet wordt 
dus altijd uitsevoerd. Net als b.v. de reset rautine. Aansenomen 
dat de IRQ wordt seaccepteerd zijn de vitwoerinsen Van beide tijpen 
interruets selijk, 





1) Een eventueel besonnen instructie wordt volledie afoemaakt. 
2) De huidise prosram counter en statusresister Worden sesaved op 
de stack. 
35) De I-viaas wordt seset. 
4) De sprons vector wordt sehaatd. 
IRG #FFFE & #FFFE 
NMI #FFFA & &FFFB 


5) Er wordt raar deze vectoren sespronsen. 


Bis onze atom zijn deze adressen voor IRG #FFB2 en voor NMI &FFC7. 


#FFB2 STA #FF #FFC7 PHA 
&FFB4 PLA HFFCE JMP C#9200) 
#FFBS PHA 


#FFBE AND 9#10 
#FFBE BNE #FFCO 
#FFBA LDA #FF 
#FFBC PHA 

HFFBD JMP CHO2D4) 
#FFCO LDA #FF 
#EFC2 PLP 

#FFCS PHP 

SFFCA JMP C#OZ02) 


Bis de IRG routine op #FFBE wordt eerst nos setest of er seen BREAK 
was en deze test is voor de IRG routine niet van belang. Er staat 
dan eisenlijk: 


#FFB2 PHA 
#FFB3 JMP C#0204) 


Bij onze ATOM wordt tiidens de reset routine #0208 en #0201 niet op 
een bepaalde waarde gseinitialiseerd, terwijl #9204 en #0205 bij eer 
reset op #BB en #AB wordt sezet. Bis een IRQ wordt dus naar #HAOOD 
sespronsen. Als we hier een box hebben zitten staat er #4, Dit is 
RIT (ReTurn from Interrupt). Dit is hetzelfde als PLPIRTS zodat we 
zien dat het statusresister welke onder punt 2 was wesgezet weer 
wordt opsehaald en met RTS weer wordt verdersesaan met het oude 
prosramma. 

We zien dat het dus noodzakelijk kan zijn het X en Y register te 
Saven: omdat wordt verder sesaan met het oude PTOSTAamMma Welke deze 
registers nodis kan hebben. Alle interrupt Prosrammas zullen er dan 
ook als volst uittien. 
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TXA save met X resister 

PHA 

TYA save het Y resister 

PHG 

„en net eigenlijke Prosramma 
PLA 

TAY haat Y resister terus 
PLA 

TAX haat X register terus 
PLA deze comperseerd de PHA welke bij onze ATOM automatisch wordt 
gesenereerd. 

RTI return from interrupt. 





Ook kunnen we zien dat contact dender mf meerdere interrupts vlak 
achter elkaar (dus voor dat de vorise is afsehandetd) fyrnest kan 
zijn omdat de stack dan verkeerd kan staan. 

Voor een systeem welke een NMI interrupt gebruikt za! dus een anti 
dender schaketins moeten worden toegepast. Deze kan er als voist 
viszien. 





@is bypel 
NME conn. 


zyLSOO 


Bij de IRQ is dit eenvoudiser. 


Pe 
Dn EN 228 bypel. 
0 ERG cons. 
Als er zen interrvet piaats heeft sevonden Kan de oorzaak 
verschillend zijn. Bij NMI kan de oorzaak zijn zoals hierboven dat 


de schakelaar wordt bediend en dat hierdoor een L-imputs op de NMI 
insans van de 6582 ontstond: of het kan zijn dat de DISK DRIVE de 
L-imputs heeft sesevern omdat de 8271 seserviced moet worden. Bij 
IRG kan de interrupt afkomstie zijn van de 6522 of van een ap PL-S 
aansestoten interface of van de bovenstaande schaketina voor IRD. 
Het is dus zaak Om uit te zoeken waar het interruet signaat vandaan 
komt. 

De INT pin van de 8271 blijft actief totdat het result resister is 
selezen. Als er een interrvet van de B271 afkomstie is dan zal bit 
5 van het status resister worden seset. Het adres van het status 
register bevindt zich op #OA0D maar alleen Tijdens een tees 
opdracht, Het result resister zit op #7AO1 ook vitsluitend tijdens 
een tees opdracht. We kunnen dus testen of de 8271 een interruvot 
heeft seseven door bit 5 van #UA0D te testen 

De 5522 heeft heel wat meer masstijkheden qm een interrupt af te 
seven. Er zijn bij de ATOM 2 adressen die de interrupts van de 6522 
behandzeten #BEGD en HBEODE. Van deze registers heeft etk bit 
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betrekking op een andere oorserons van de interruet (zie 
Onderstaande tabel), #BDOE is de interrupt enable resister. Hierin 
kunnen individuete interrupts actief of inactief worden semaakt. 
Het 7 de bit is een able disabie voor aile interruets. Als dit bit 
hish is Kan men het betreffende bit in het interrupt enable 
reaister al of niet actief maken, Anders zijn alie interruets 
inactief. 

b.v. ?NBEDESHED+NZO maakt timer 2 interrupts actief. 

Ais er een interruot plaatsvindt dan wordt in het interruet vias 
resister de betreffende bit seset. Bit 7 wordt altijd seset ats een 
interrupt veroorzaakt door de 6522 optreedt. De resterende bits 
seven de oorzaak aan. 

Nadat de interrupt is behandeld moet het betreffende bit weer 


worden secleared. Dit kan voor de verschiltende bits oe 
Vverschiltende manieren. (zie onderstaande tabei) 
Nu eerst twee voorbeelden om het een en ander te illustreren. 


18DIM LL6:F, I=OTOGSLL CI) =- iN, 

ISP. $21:REM SCHERM UIT 

29F.N=1TD2; ?#EB=05 GOS. a;N 

z2iP.$E 

251F I$EB=#2IP, "WARNING OUT OF RANGE DETECTED"" 
SOIRZOLEl L4L2SEs MM 2ES=eLL4/256IREM VECTOREN VAN DE INTERUPT 
GDIRBEOB=#4DFREM ONE SHOT DE PB7 OUTPUT 

50? BED FF:REM TIMER 1 LATCH LOW ORDER 

EB?#BEO7=FF;REM TIMER 1 TATCH HIGH ORDER 

ZOEBBUS=KFE REM TIMER 1 HIGH ORDER COUNTER & BEGIN TELLEN 
SL?#HEDE=-RCOFREM ENABLE INTERUPT TOMER 1 

DI R2OALLEA2SEI IHLOB=LLI/ 25E REM VERANDER READ VECTOREN ZODAT 





180REM ALLEN TIJDENS READ OPDRAXHT 
11ÖREM WORDT GEKNIPPERD. 
111END 


120aP=#28005 CL 

130: LL4LDAEBEEDs BMI LLS: \KOMT HET UIT DE TIMER 
I4OSEISTYAPHASTKAIPHA:\SET INTERUPT VLAG EN SAVE REGISTERS 
1SOJSR#FDES; \MAAK SCHERM SCHOON 

1E8CLIS JMP LLE:\CLEAR INTERUPT VLAG EN HAAL REGISTERS 
170:LLSLDAKBBE4S \CLEAR INTERUPT VLAG 

189DECHSEBIBNE LL2:\AL 3 KEER GEHAD 
190LDRE#2I: STAKD2: \OPNIEUW TELLER LADEN 
200TYA; PHA: TXAG PHR: \SAVEN REGISTERS 

21BLDYHED: JSRHFD44 5 \INVERTEER CURSOR 

220LDKAHZOS \BEGIN WACHTLUS 

230: LLOLDYORFF ; \WACHTLUS 

24OELLIDEY;SBNE LLis\WACHTLUS 

ZS0DEXIBNE LUO; \WACHTLUS 

250LDYKEB: JSRHFDA4 3 \INVERTEER CURSOR 
270:LLEPLA: TAX: PLA: TAYs\HAAL REGISTERS TERUG 
280:LL2PLA:RTIG\RETURN FROM INTERUPT 

230:LLSCLIG\HIER BEGIN READ CYCLUS DUS ENABLE INTERUPTS 
SOOJSRKFESG; \HAAL TOETS OP 

S1OSEISRTS;\EINDE INPUT ROUTINE WE GAAN NU SCHRIJVEN DUS 
320\ DUS GEEN NIEUWE INTERUPTS 

32035 RETURN 


Dit is de IRQ routine. Bij bediening van de schakelaar maakt U het 
Scherm sshoorn: terwijt de E5 de cursor laat kniersren. 
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1BREM NMI 

28DIMLL1O:F. 1=OTOLOrLL CID =- iN. 

20F. 1=0T015G0S. asN. 

ADP. SE 

SD #IOE=LLIK ZEEF IKLOL=LLI/ZSEIREM SET NMI VECTOR 
EAP, $7GA=EE 

TOEND 

SQaP=&1A38:E 

30:LLSSTAHSUI STXHELI STVHEZ 

10@:LL1D NOP:JSR#F7DI 51 








izasPp="ADR. Y_ NVEIDIZC"sP=P+L. P 
130! P=#3ADD : 
148E: NOP 
150TSX: INXs INXs INKs INK+LDA#100, Xi JSRHFE2I DEX + LDAHIOD: X 
1EDISRHFBD2 3 JSRHF TED 

170DEX:LDA#1AD, Xs STAHET 

18EBLDA#SB; JSRÉFEOZ 1 JSRHF7FD 

190LDAHE1 $ JSRHFEDE s JSREF7ED 

JSRÉFEOZs JSREF ZED 

ZIDLDXORBs:LLE LDA#BE 

220BPL LL2:BMILLS 

:LL1 ASL#EEI DEX: CPXO#0D; BEOLLS: JMPLLE 

LELDA#EDs JSREFFFA 3 JMPLLE 

25 LELDASEZI 3 JSR#EFFFA3 JMPLLE 

ZEG: LLEJSRHF7D1 5 F 

270! P=tDABDs PaP+E 

2EUEP="STACK “rPeP+l. P 

29DEINDPETSXt INKE INXs INX3INXs INX 
zLL7LDARLGD, Xi JSRHFSOZ:s INX; BNELL7 
:LLSLDA#BBILDXHEL FLDYRBZ3 PLAS PLP 

BCL Is LDAAHEA; STAHEDDT + LDAOH7 5 STAHBOOZ: LDADOF STAHBIOD 
EEOJSRHFFED 

ZAOLDXORFF ;TXS 5 JMP#FFSA 

2501: R. 



















Dit is het NMI prosramma. Bij bediening van de schakelaar krijst U 
het volsende: 


ADR A EX ry NVIBDIZC 
FEER Oi gá DA 210010 
STACK ASFECED4 


Hieruit kunt U opmaken dat de prosram counter op #FEGB stond toen 
de interrupt optrad. De stack schuift er naar links Uit zodat U Dok 
kunt volsen van welke Ssubroutines U op het huidise adres bet 
sekomen. Het werkt ats zen alternatieve reset. 
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MET DIT PROGRAMMA KUNNEN IN EEN P-CHARME PROGRAMMA SYMBOLISCHE 
VARIABELEN GEBRUIKT WORDEN. DE VARIABELEN WORDEN GEDEFINIEERD DOOR 
ZE EEN WAARDE TOE TE KENNEN B.V, “TESTVAR=PI®18" DE VARIABELE KAN 
HIERNA UITGELEZEN WORDEN MET B.V. “P, TESTVAR" oF 
“ANDEREVAR=TESTVAR" 

DE VARIABELEN WORDEN OPGESLAGEN IN HET HOGE GESTAPELDE GEHEUGEN 
VANAF #3588. NA GEBRUIK VAN HET "PROGRAM' STATEMENT WORDEN ALLE 
DUDE VARIABELEN VERGETEN, BIJ DE KEUZE VAN VARIABELEN NAMEN MOET 
UITERAARD OPGELET WORDEN. (ZIE BESCHRIJVING MINIAS ASSEMBLER) 
HELAAS WERKEN DE VARIABELEN NIET IN FOR-NEXT, PROCEDURES, FUNCTIES 
EN INPUT'S, MISSCHIEN WORDT DIT OOIT NOG VERBETERD. 





18 PROGRAM EXTRA VARIABELEN 

za 

38 REM C. KWAKERNAAK 

40 

14OC?#SFB=D: REM ERROR OFF 

150 2520: #24=HTEIDIM CLIO, OD10 

168 M=$3DCHREM WERKRUIMTE (TOT M+5) 

170 Z=#Bo;REM 2 BYTES ZPAGE PERMANENT 

180 K=#FC:REM 2 BYTES ZPAGE TIJDELIJK 

198 T=#39820;: REM VARIABELEN RUIMTE (GESTAPELD !) 
208 F=#28FEsREM CONTROLE BYTE 
218 F, I=OTO 4@:LLI=CSSSEN, 
220nP. "START-CODE (NIEUWE PAGINA)“ ;INPUT S 
238 IF S&HFFOG GOTO n 
240 P."STARTADRES MINIAS"""(@ INDIEN NIET AANWEZIG) "" 
258 INPUT @ 
260 IF O=0 G=#AC4B 
270 P,$21:G0S.asP,$5"PASS 2" $21;GDS. asP. $E 
288 IF ?#EB(@ P. "OUT OF RANGE DETECTED:"+END 
238 REM VOLGENDE REGEL DIENT VOOR INITIALISATIE 
300 HIFBRBIIIHIEE=DS PHZEF=LLI4/ E56 
s18 9=@;P. "EIND ADRES=#" CPL)" ;D=E 
328 END 
550aP=5; ?#EB=D; EC 
ZS4BO\NIEUWE BRK VECTOR 
SSD\CMOET OP NIEUWE PAGINA) 
ZEO:LL14 
378 PLAsPLA:STAM+S\BEWAAR ERROR NR. 

3588 LDX FiCPXOKEZIBNE LL22\?CONTROLE BYTE 

538 CMP929:BNEP+S; JMPLL1S\VAR OPHALEN 

4&OB:LL22 CMPQS4GENEP+5 3 JMPLLIS\VAR TOEWIJZEN 
418 PHA:PHASJMP O\VERDER ZOEKEN IN MINIAS OF P-CHARME 
42B:LL21\SLA VAR. OP 
430 LDA FiCMPOHES:BEG LLE\ ZEERSTE TOEWIJZING 
440 LDAAT&#FF;STAM+3;STA Z\BEWAAR TABEL 

450 LDAST/25E:STAM+4AISTA Z+1 

4BB:LLEJSR LLI\LEES NAAM 

478 LDA M;CMP92:BPL LLS\ CONTROLEER NAAMLENTE 
48B:LLZOLDYAOILDAARFFGSTALZ), Y\FOUT MELDING 
490 LDY M+2;STY#T: JMPLL1E 
SBP: LLS IJSRHF2I1 sCMPICH" NE LLZO\? ' TEKEN NA VAR, 
519 INC M:LDA Mi: JSRLL7\TABEL=TABEL+LENE NAAM) 

SR LDA 7: PHA:LDA Z+1 FHA 
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528 LDAAA: JSRLL7\TABEL=TABEL+G 
S4úB LDAS#FF;LDY2EESTACZ) , V\SLUIT TABEL AF 
SSU LDAAHEI:STA F\CONTROLE BYTE 
SED JSRHC7EB\LEES TOEWIJZING 
570 PLA:ISTA K+15 PLAISTA K 
SEO DECHUILDX#4\ZET TOEWIJZING NAAR VARIABELE 
530 LDYSOILDAH4E, XI STACKD,Y e 
598 INY 3LDAHEA: K3STACK), Y 
618 INY :LDAH25, XI STAD), Y 
528 INY $LDARLE: X1STACK): Y 
E38 JMP#CSSE\VOLGENDE STATEMENT 
EAD\LEES STRING NAAR TABEL 
ES@:LLIJSR#EF2S1L;LDYREISTY M+2\BEWAAR BASIC POINTER 
BEB DECHSILDYRZILDACHOS) » Y 
E72 CMPACH"E" FBMILLG 
682 CMPACH"S"IBMI P+10 
538 CMPACH" B! RMILL4 
708 CMPSCH“L"5BPELL4 
718 LDAS#FF: STAM: DECHS 
TEB:LLEINCHSSLDYHE 3 INCM 
730 LDAURDS)» YiLDYMISTALZ) » Y3 STAM+1 
748 CMPACH"O"3BMI LLS 
752 CMPACH"3"3BMI P+19 
760 CMPACH"&"5BMI LLS 
778 CMPACM"{":BPL LLS 
788 BMILL2 
798: LLSLDAAHFFS STALD), V 
880 RTS 
B10:LLALDYM+23 STYRII JMPLLIE 
S2O\VERHOOG TABEL MET ACCU 
BEO:LL7CLCSADT Z5STA Zi:BECP+ASINC Zei RTS 
B4AB\VAR UITLEZEN 
BSB\ERROR 29 EXTENSION 
SS0:iLL1S$PLAIPLA: PLA\ZET STACK GOED 
878 JSRLLIE\ZOEK WOORD 
588 BCCLLIS\NIET HERKEND 
8530 LDYM:INY\ LEES WAARDE NAAR W/S STACK 
SBB LDACK), YISTAH4E, X5 INY 
918 LDA; Y5STARTIG4, Xs INY 
S2B LDACK), YISTAHAS: X3 INY 
SEB LDACK): YISTAHLE, X 
S4B INXISTXHAILDYHZIRTS 
ISN FOUT 
ED: LL1BPHA; PHA; PHA: LDAM+55 PHA: PHA5 JMP O\VERDER 
87B\VAR TOEWIJZEN 
SSA\ERROR F4 EXTENSION 
93D:LLISPLA: PLAS PLA\ZET STACK GOED 
1663 LDA FsCMPS#ES:DNE LL2E 
1819 JSRLLIE\ZOEK WOORD 
1829 BCSP+Ss il L2E JMPLLZI\NIET HERKEND 
1830 LDYM:TYASPHAILDA Ks PHASLDA K+14PHA\ZET POINTER OP STACK 
1940 JSRHCADENLEES TGEWIJZING 
1858 PLASSTA K+15PLA:STA Ks PLA:TAY: INYSLDXR4 \HAAL POINTER 
18EB\SCHRIJF RESULTAAT VAN W/S STACK NAAR VARIABELE 
1970 LDA#4Z, X5 STACK), Yr INY 
15828 LDAHSE. X: STAK), YE INY 
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1090 LDA#Z4, X5 STACK) , V+ INY 
1108 LDA#IS, X3 STALD, v 
1118 LDY#I; DEC; LDX#4 ; JMP&CSSB 
1120:LL1E\DICTIONARY SEARCH 
1138 LDAM+3;5STA KsLDAM+4: STA Kel 
1140 LDXA#FF:STX M\POINTER TABEL 
1150: DO4LDY#23;STYM+1\POINTER BASIC 
1158 DECM+1 
1178: OOZINCM; INCM+1 VOLGENDE 
1188 LDYM;LDACK),Y TABEL 
1198 BMIOO1\TABEL AFGELOPEN 
1200 LDYM+1;CMPC#5), Y BASIC 
1210 BEQOO2\VOLGENDE CHAR. 
1228 LDYM;LDACKO) ,Y 
1238 DECM 
1240: DOS; INCM 
1258 LDYMsLDACK), Y TABEL 
1268 BPLOO3\GA NAAR EINDE WOORD 
1278 INCM: INCM: INCM: INCM 
1288 CLC;LDAMGADE K;STA Ks BCCP+44 INC K+1:LDAAG: STAM 
12399 BEGDO4\VOLGENDE WOORD 
1500\CARRY CLEAR=WOORD NIET HERKEND 
1510\CARRY SET=WOORD HERKEND 
1520: OD1LDYM+ 1; CPYHBE; CLC s BEROO7 
1550 STY#SE: BEC: :DO7STY#I3LDX#4 3 RTS 
15401; RETURN 


18 PROGRAM LVAR. STAT 

20 

38 REM C. KWAKERNAAK 

48 

58 REM HOORT BIJ EXVAR PROGRAMMA 
68 REM DIT COMMANDO GEEFT EEN 

70 REM LISTING VAN ALLE GEBRUIKTE 
83 REM EXTRA VARIABELEN. 

30 REM MINIAS MOET AANWEZIG ZIJN VOOR ASSEMBLAGE ' 
188 
118 P.$21;GOSUB a 
120 P‚$21:GDSUB asP.$5 
150 $T="LVAR";T=T+LEN T 
14D ?T=ENTRY/ZSENHEO: TI 1 ENTRY: TZ HBUIT=T+ Es 

















sT!1=A 


158 END S1BLDASCH"=" ; ISRHFFF4 
160av=#50 S2OPLA:TAYSJSR YADD 
170C. TA #9200:. BA A SSOINYsLDACV), Yi STAKAS 
18O:ENTRY S4BINY:LDACV) , Y:STARZ4 
130JSRHC4EG SSOINY;LDACV), Y;STR#2S 
200 DAKZEFEs CMPOHEZI ENE KLAAR SEDINYsLDACV) , Y; STAKIG 
210LDAs0: STA Vv S7BINY:JSR YADD 
220LDASHSEISTA V+1 SSOLDXDOSJSR ULSEOIISR &FFED 
230:LOOP1;LDYAD E90JMP LOOP1 
24OLDALV), Ys BMI KLAAR 408 

250: LOOP 418: YADD 

2EBISREFFF ús INY G2OTYAGCLCGADC VISTA Vv 
27BLDACV), YsBPL LOOPZ 4SOLDRABGADC V+1sSTA Va1 
282TYÀ: PHA G&BLDYAD: RTS 

2398: LOOPS: JSREF7FD; INY 45B: KLAAR JMPRCSSE 
SORCPYAI; BMI LOOPS 460 


ATORETURN 
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KAS-BOEK — 





Het prosramma "kasboek" houdt voor een siro- en een bankrekenins de 
inkomsten en de uitsaven bij: Waarbij tevens de saldi worden 
aansepast. 


Het databestard werdt opgebouwd vanaf #23902, 

De eerste ZE bytes bevatten de volgende informatie: 

162302 laatste datum van wijzising. 

Een datum wordt ingevoerd ats JJMMDD en opsesltasen in 4 hex-bytes. 
14295 besinsalds bank 

1#239A eindsaldo bank 

IE23DE beainsatdo Siro 

I#29i2 eindsaldo Sire 

Bedrasen worden als FP=variabele ingevoerd: met 198 vermenisvuldisd 
en als inteser-variabele opseslasen en verwerkt. 

IMHEIIE en ?#2317 Top van het bestand. 


Etk databiok bestaat Uit: 

datum (6 hex-bytes) 

selectiebyte! afschrift ontvansens JA ) bit@=1 
bank of airoï BANK —) biti 
bij of afs BI —) bitz 
BITS t/m bit? is vrij 

naam, afsesloten met #0D 

bedrag (4 hex-bytes integer) 

Scheidinssteken (#AF). 

Na het laatste datablok komt als afsluiting een "lees" blok € 

PROC TAILCUI) dat rodie is bij zoeken en sorteren. 





N 
D 


Met behulp van menu's kunnen de verschittende functies van het 
Pprosramma Werden SE&kOZen. 


1. "EERSTE INVOER", Hiermee worden de besinwaarden insevoerd in de 
eerste 22 bytes. 


2. “TOEVOEGEN AAN BESTAND" seeft vervolsens de moselijkheid 
ressimatis nieuwe gegevens toe te voegen. Deze sesevens Worden op 
datum sesorteerd. 


Z. "EDITEN" biedt de mosetijkheid wijzisinsen in het bestand aan te 
brengen. 

Met "aesevens Wijzieen” kunnen veranderingen worden aangebracht in 
datum: setectiebyte en bedrag. Fouten in de naam Kunnen hiermee 
niet worde hersteld. Het blok met de foutieve naam Moet worden 
verwijderd ern SPNIEUW insevoerd. 

Met "datab! verwijderen!" Wordt een bepaald blok vit het bestand 
sehaald en het eindsaldo wordt sewijzisd. 

Met "t/m bepaalde datum verwijderen!" kan een bestand dat te sroot 
Wordt, worden inseknort. Vanaf met beain tot de sekozen datum 
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worden àlle sesevens verwijderd en het besinsaldo wordt biiaewerkt. 


4B5. “BESTAND NAAR/VAN DISKETTE" zorst voor het opstaan en weer 
terushalen van sesevens op/van de schijt. Om onselukken te 
voorkomen wordt sevraasd of je het zeker weet: waarop met het hele 
woord JA of NEE moet worden seantwoord. 
Bij het sebruik van cassettes i.p.v. een schijf zijn de volsende 
wijzieinsen in het prosramma nodis. 
regel 40 PHFE=#7CHCOS1 

(DISK schakelt de DOS in (JSR#C4EG ; JSRHEGRD ; INPKCSSE) 
resel 1789 verwijderen 
resei 1838 IF$C="JR"5G. 1878 
reset 1868 verwijderen 


E. "AFDRUKKEN" zet de sesevens op papier. 

Er kan worden sekozen tussen of bank: of ai ro: of beide. 

Daarna kan worden gekozen tussen selectie op naam selectie op 
datum of seen selectie. 

Bij het zoeken op naam hoeft niet de hele naam insevoerd te worden. 
Het ingevoerde besirn van de naam wordt tot #@D CCR) verseleken met 
het besin van de naam in het bestand. 

Bij het zoeken op datum kan tot of vanaf een bepaalde datum worden 
aezocht of tussen twee data 


7. __“BESTANDS-INFORMATIE" toont het aantat data-blokken en het 
seheusensebied dat het bestand in beslas neemt. 


In zijn volledise vorm is het erosramma te sroot om vanaf #6200 te 
laden. 

Wanneer echter de machinetaalroutines in seassembieerde vorm achter 
een ingekort prosramma Komen, kan het wel. 

Dit is op de volsende wijze te realiseren: 

* Laad het hele prosramma vanaf #5800 en RUN het. 

* (escape) 

* Vraas de werkelijke adressen om van LL2O, LL@, LLS. LLIG: LL13 
LL31, LLSS en LLS. 

* Vervans deze labets in de PROCEDURES door de adressen. 

* Verwijder in resel 60 LL4t, 

* Verwijder de resels 70 en 590, 

* Verwijder de resels 3210 en verder. 

* Bepaat TOP en verhuis het prosamma met COPY naar #8200. 

kk HGAVE"KASBDEK"B200 AQAB CTRBE 
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10 PROGRAM KASBOEK 
ZOREM BERRY LAM B4B72E 
ZOON ERROR P. 8730. (71422256) 
4D FE=#7E 
SOP. $12" PRINTER AAN"$2529$27$56$27$E6' 2812 
GODIMLLú1, CH, DE: KZ, LE: MS: H1D3 N=#3F0O 
TOF. 1=2TD41 LL 1=#3D0D EN. 
BOPRDC LINE 
90 P.' 
180 DOP. 
110 P.? 
129PEND 
130PRDC FIXCD) 
140 4F=D/100 
150 FIFXF) =O 
158 FIFXF (050 
172 P.0/148 
180 a=0:0=A. Ds 0=0%1003P. “, "D/100%10:d=8 
19UPEND 
zoePROE SORTEER 
218 LINKLL2G 
220PEND 
23DPROC TAIL CU) 
240 LUHFFEFFFAF U! be O0ODLDOD: U! E-#AFDOLOOE 
ZSBPEND 
2EOPROC INIT 
270 LINKLLO 
282PEND 
290PROC VERHUIS 
E00 LINKLLS 
Z1OPEND 
SZ20PROT ADRES-TOP 
330 LINKLLLE 
S4BPEND 
S5OPROC BLOKKEN 
ZED LINKLLIE 
S70PEND 
ZEUPROC DATUM 
598 LENKLLII 
&UDPEND 
41BPROC NAAM 
4620 LINKLLSS 
LSDPEND 
G&UPROC KIES 
4650 P. “maak” RBD" vw" HEU" keuze” s IN. $M3G=VALM 
GEOPEND 
47UPROC TEST-EDF 
&ED LINKLLE 
ASQPEND 
SBZPROC REGEL 
510 P.4z,E, " * 
520 XIFIKIFIDRL THEN P‚n * 
SED ELSE Ps 
540 P.$N:F, I=OTD4D-LENN) 5P. * 
SSD IF #GFIDEG=DP. " 
SED FIXCB) 
578 P.' sZ=Z+1 
SEGPEND 








+. COUNT=71 






CAFKLES+S) /10 
„CAF LES/ 10 
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SSBP. 4215605. a; GOS. a: P. $E 
EOAmP. $128#50" menu" SHED "=ennen""" 
E1BP. "1. EERSTE INVOER" 
E20P. "2. TOEVOEGEN AAN BESTAND"" 
BIP. "ZS. EDITEN" 
648P. "4. BESTAND NAAR DISKETTE“ 
"5. BESTAND VAN DISKETTE" 
"E. AFDRUKKEN"? 
“7. BESTANDS-INFORMATIE"' 
"B, EINDE"" 
5I9BKIES 
TOBIFLLIORDI BIP, $11615:G. ESR 
71@DN Q GOTO istsws, Ie, P:sre 
72DeP, 2430627854627 855’ $5S1ZIE. 
730iP. SIZ"EERSTE INVDER"'' 
740! #2900=#0OBOFFDD;F. 1242904 TORZAL 5E? IDE N. 
750: #23915=#2919; TAIL(#2918) 
7EOIN. “DATUM CJJMMDD) "SD 
770! #2302=VALD 
78AFIN. "BEGINSALDG BANK“ XB 
7S0G=XCAB41000) /10 
808! #2905=5; '#290A=G 
S1OFIN. “BEGINSALDO GIRO“ XB 
B20G=X £XB+1000) /10 
858! #LIBE=GS !#29L2=0 
EGBIN, * "ALLE INVOER CORRECT? CI/N) "$C 
=#4EIG. í 
=#4A:G, m 
8785. 22: 
880tP. $12" TOEVOEGEN AAN BESTAND" " 
BSBIN. “DATUM VAN VANDAAG (IJMMDD)""$D 
IDD! #2ID2=VALD 
S18P." “DATUM VAN WIJZIGING (JJMMDD)"'"OF EINDE INVOER (992) + 
S20IN. SD 
IIGEFSD="DID" FGORTEER; Ga m 
g4DS=D 
SSBIN. “BANK OF GIRO (B/G) "SM 
SEOIF?M OEZ IFIMOH47;G. 950 
STOIFM=k4 25 S=EN2 
SBOIN. “BIJ OF AF CB/A) "SM 
SDIF MOL: IFIMOH4L1SD. 82: 
1090IFM=kAZsS=SH4 IN. "AFSCHRIFT ONTVANGEN (J/N) "SM 
1@101F?M=k4At S=S01 
1820XIFS&4s IN. "ONTVANGEN VAN" EN 
1G3GELSE IN. "BETAALD AAN" SN 
1040F IN. "BEDRAG" XB 
1OSBIN. * “ALLE INVOER CORRECT? CJ/N)"$C 
186B1FC=k4E:G. 910 
107BIF?C O0 #4GASG. B2:5 
1080T=?R291E+2#2317#256 
1890! T=VALDIT=T+4 
1188? T=5; T=T+1 
11101 DO I=l+1 
112079 21 
1150U. N? I=#DD 3 T=T+LENN+1 
1140G=XCAB#1000) /10: !T=Gi T=T+4 
115OTAIL CT) HT=T+1 
1160 #2G1E=T47SE 1 2 













O1 7=T/ 05E 
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117@IFS& :6=-G 

#230A=! #2IDR+G 
1IN2I1E=!#23124+0 
1290P.$12:6. 318 

1210pPP. SIZ" GEGEVENS UITPRINTEN" 
1220P." "1. BANK"' "2, GIRO"'"S, BEIDE""" 





1230KIES 
1248IFE(LORD EsP,$11815:G. 2255 
1250R=D 
1268P.$i2"1. SELECTIE OP NAAM"" 





1279P."Z. SELECTIE OP DATUM“ 

126DP. "5. GEEN SELECTIE“! 

1730KIES 

150OIFD(IDRD) ZiP, 61181556, 1235 

1Z18XIF Q=Z THEN IN, ° “VAN DATUM CEVT. 200080) "$D; ! #9FBB=VALD 
1328 IN. “TDT DATUM CEVT, 899999) "ED: ! #9FBC=VALD 

IJJOELSE 'HIFSEeD; ' HIFEC=IIIIT 

1340XIF Q=i THEN IN," "NAAM" $R9F4U 

15SDELSE °#IF40=R0D 

1368Z=0 

1378ON R GOTD B2:5, 1530, 02:55 

1580605 GOS. 141256. m 

1590008 GOS. 1410: 6, m 

1400GDS. biR=15 GDS. BA751GDS, CFR=2: GOS, 141850, m 

141 OINIT 

I&zBON G GOTO Q2:5, 164, 1450 

143BNAAM:G. 8225 

144BDATUM;G. 1480 

14&SDTEST-EOFSREM P, ALLES 

1GEDIF HEE DP, SER. 

147 DVERHUIS 

14850IFR IF? #90 
14S0IFR IF #IFSDEE 
1500IFZ 405 2=A3P, "77" sLINESP,. "VERVOLG" sLINE 
15105. 82:5 

1523bP, $£ 

1538 LINE 

1549 G=!#290E 1 9=E 

1555 P‚ “BANK BEGINSALDO"FIXCG) 

















1569 5=!#290AFGDS. KIR. 

157@cP, 

1554 LINE 

1538 G=!#290E 5 Q=E 

1508 P. “GIRO BEGENSALDO"FIXCG) 

E18 G=!#29125G08. KIR, 

1EZUKO= DEP. ' HELDER P. " EINDSALDO" FIX CG) 
1558 LINE 

1E4B P." _ DATUM";DOP. " “$U, COUNT=EGEP. "BIJ AF“ 
1E58 LINE: Z=Z+6 

1EEUR. 


1678sP.* “DATA saven” 
1EBBIN, "ZEKER WETEN? (JA/NEE) "$C 





169BIFST="JA":G, 1720 
17DEIFST="NEE"3G, m 
171285. 1580 


17 28X=#AD 
17206#3F5D="DATAKAS" 
1740' HAD: 


Er 





23 
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1758! #AL=#29D02 900 

1760! #5 2300 

1778! #RAE=IK2TLE LIMIT DEE +11 
1788*USED 

17 39BL INKKFFDD 

188DG, « 

18181P,' "DRTA vaden”" 

1B20IN. "ZEKER WETEN? (JA/NEE) "$C 
185BIFSC=" JA"; 1BED 
184BIFSC="NEE";G. m 

18506. 1220 

1BE8*USED 

187@*LOAD“ DATAKAS" 2900 

18886, « 

1890aP. $12"BESTANDS- INFORMATIE"? * 
19DOBLOKKEN 

19188=83P, “AANTAL BLOKKEN *, (2H5A+245B#25E) ' * 
1920P. “VAN #2990 TOT #"8(?#291E+I#2317#256411)"' 
193BIN. “DRUK OP (return) *$C 

194006. m 

1350wP. S1IZ"EDITEN""" 

13E8P, "í. GEGEVENS WIJZIGEN" 

1979P. “2, DATABLOK VERWIJDEREN"! 
1980P."Z. T/M BEP. DATUM VERWIJDEREN"! 
1338P. “4, TERUG NAAR MENU“' 

200BKIES 
201BIFL(IORD 4: P. $11$15:G. 2008 
28201FD=4;G. m 

2050R=0 

2040P, "1. ZOEKEN OP NAAM"""2, ZOEKEN OP DATUM"" 
2050P. “3. ZOEKEN OP NAAM en DATUM"""&, TERUG NAAR EDITEN“ 
20EDKIES 
207BIFQLLORM 45 P. $1181556. 2068 

2088ON @ GOTO B2:5, 2120, 216, w 
203BIN. * "NAAM" $#SF40 

212BINIT 

21 10NAAM;G, 82: 5 

2128IN.' "DATUM (IJMMDD)“$D 

2136! #SFBB=VALD: ' #9FBC=VALD 

2140INIT 

21 5BDATUM: G. 2240 

21EDIN. ” "NAAM" $#SF4D 

217BIN. “DATUM CJJMMDD) "s$D 

2188INIT 

219ONAAM 

220DIF KEZ ODIG. w 

2210! #BA=!#BA; VERHUIS 
2220IFE 0 VALD; 6, 2199 

22300. 82:55 

2240IFHB2 0 DFG. w 

2250! #BA=! HEU 

Z2EBVERHUIS 

2278P.$12:9=0P. “DATUM "E" 

2280HTAB7; XIF?#9F3DE2: P. "BANK" 
229BELBE P. “BIRD” 

2500 IF #IF IGEL: P, "AFSCHRIFT ONTVANGEN"? 
2I10ELSE P. “GEEN AFSCHRIFT"? 

2TDAP. EN 
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2EEDX IFT KOFSORLIP. "BIJ 
234DELSE P."AF 

2ESDFIXLB IP." 

EEEOIN. “JUISTE DATABLOK? (J/N) "SC 
2370IFC=#LEFON GC GOTO 2119, 2150, 02:5 
23881F?C (0 #4AIG. 2360 

2390DN R GOTO 2400, 02:5, 2820, m 
2400P." "WIJZIGINGEN CEVT. (return))" 
24 18VTAB1D:P. "DATUM"" "BIJ OF AF (B/AI"' 
2420P. "AFSCHRIFT (J/N) "7 "BEDRAG" 

24 30VTABLGEHTABL7: IN. $D5HTAB17: IN. $K 
244OHTRBL7; IN. $L5HTAB17s IN. $H 

2450IN. "ALLE INVOER CORRECT? (J/N) "SC 
2460IFC=#LE:G. 2430 
24701FIC 0 H4ASG. 2450 
248DW=HER+IBBKZTE 
249BIFID 0) HUD: !W=VALD 

250OWeWt4 

Z5105=7#9F90 

25201F5&4=0;B=-B 

25EUX IFK O HUD 

2540 IFK=#42} G=GN4 

2550 IF?K=#413G=583 

25EDELSE 

2570XIF?L 0 KOD 

2588 IF?L=#4As 5=501 

2590 IF?L=#4E:5=0R6 

250DELSE 

25107W=5 3 W=W+1 

2E2DDD Wekt 15U. ?CW-1) =HOD 
Z5S0XIF2HO RBD THEN XB=VALH 3 G=% (XE: BOD) /10 ! W=G 
254D IFS&ú=D; D=-G 

2650 IFS&2: !#290A=! #290A-B+G 

2EED IFS&Z=0: !W291 2e #21 Z-D+0 
2670ELSE 

25805. w 

ZE98P. ""DATABLOK TOTAAL VERWIJDEREN" "EN EINDSALDO WIJZIGEN" 
27DBIN. "ZEKER WETEN? (JA/NEE) "$C 
2710IFSC="JA";G, 2740 
2720IFEC="NEE" 5D. w 

27505. 2700 

27405=7#9F30 























2750IFS&4=/ =—B 
2760IFS&2: ! #290A=!#2IDA-B 
2770IFS&2=0: '#2912=!R2912-B 
2780! (2#BA+PHEBKRTEIN 77777777 
2790SORTEER 

280DADRES-TOP 

28186. w 


2820P.' “T/M DIT BLOK VERWIJDEREN" "EN BEGINSALDO WIJZIGEN"? 
ZBIBIN. "ZEKER WETEN? (JA/NEE) “$C 





284BIFSC="JA";G. 2872 
2850IFSC="NEE"5G, w 
28505. 28:50 

2870! HBA=! #50 
2880INIT 


2890 #87=7 #0; PHOEBE KEI 
2SADVERHLUIG 
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29185=#9F 2 

2920I1FS&4=0iB=-B 

293DIFSE2: ! #29DE=! #29BE+E 

2I4BIFS&2=D; !H2I0E=! HIIGE+B 

2958! (I#27+INBENLIEN 2777777777 
2960IFED=IKEA IF NEL= EBG. 2980 

23970G. 2890 

298OSORTEER 

299GADRES-TOP 

S0LEG. w 

3010aP=#IDAD 

5020 

S@SO\INITIALISATIE 

SA40:LLO LDAD#19: STRABO: LDAAH2SI STAKEL :LDYAO: STYHE2IRTS 
SESO\NEXT ADRESS 

SOEB:LL1 INCHEO: BNELL 2: INCHE1 

3B7P:LLE RTS 

SUBO\TEST END-OF-FILE 

309B:LLE LDYAO 

SiOD:LL4 LDACHED) , Ys CMPARFF : BNELLSs INY;CPYOS: BNELL4 
311BINCHS2 

S128:LLS LDYAOIRTS 

3150\ ZOEK CHAF) PLUS 1 

Sl&@:tLE LDYAP 

3158:LL7 LDACHSD) , Ys CMPE#UD s BNELLB 

S1EOLDYAT: LDACHBO) , Ys LDYAUs CMPAKAF 5 BNELLE 
5178CLCHCLDsLDA#ED; ADCHE : STAHEOS LDAHE1 + ADCAR: STAKEI ; RTS 
3188:LLB JSRLL1s JMPLL7 

S19B\VERHUIS 

3200:LLS JSRLLTsLDAKG2; BEGLLIO: RTS 

S21BrtLi® LDACHEG), YsSTAHDS2E: JSRLL1 25 STARDEAL 
S220JBRLL123STAKISC:ISRLL123STA#S77 3 JSRLL1 2; STAKIFIDS LDKARFF 
S25B:LL11 INXsJSRLL12:STAHIFDD: Xs CMPO#AD s BNELLÍ 1 
S24OJSRLL125STAHI2II JSRLL1 23 STAHZIE 
S250JSRLL12:STAHISS; JERLL125START74 
325AJSRLL1FJSRLLLERTS 

3270:LLi2 JSRLL1:LDACHBE), Y: RTS 

S2BA\BLOKKEN TELLEN 

S298:LL1J JSRLLG:LDXAD: STXHSA:STKHIB 

S5DO:LLI4 TSRLLS;LDA#G2:BEOLLAS:RTS 

S310:LL1S JSRHF6715 JSRLLEs JMPLLLG 

SS20\ADRES-TOP 

SS3D:LLIE JSRLLO 

SI4DELL17 LDACHBO), Ys CMPORFF ; BEOLL1S 

3550:LL1B JSRLLUIsJMPLL17 

S358:Lt19 JSRLLE:LDA#HE2: BEOLL1S 

S570LDA#SO: STA#ZOLEFLDAKEL STAH2317; RTS 
SSSB\SORTEREN OP DATUM 

33S0:LL20 JSRLLIS 

S4OOELL21 LDADD:STAKSCHSTAHSD;LDKA2s JSRLLA 
S41OJSRHF7FD:LDAKSB ; JSRHFBO2: LDANSA: JSRHFEDZ 
S4Z0:LL22 LDA#ED: STAHBZILDAHEI ; STANEA 3 JSRLLE: LDYDT 
345O:LL2S LDACHBD), Vi CMPCHET), Y4BECLL2S 
S44OBNELL 24; DEY+CPYO4FF : BNELL 2E 

34SOrLL 24 LDYAD:LDKA2s JSRHFG7 1 & LDAKSD s CMPHSB 5 BNELL 
34EDL DARSC ; CMP#SA + BNELL 223 LDX90; JSRHFEEEs LDARSE 
34 7OBNELL21 :LDA#SA; BNELL21 4 RTS 

ZLEB:LLES LDADHAD: STORES SLDADHSF : STAHBE 
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34 SBL DA#HEI 3 STARE 5LDARSA s STAKES JSRLL2E 
ESUALDAHEF 5 STARES LL DARBG  STAKBE 
E51ELDA#ED: STAHB7 LDAHSi 5 STAKSB: JSRLL2E 
3S20STY#ESs CLC FTLDILDA#STES ADCHBT: STAKES + STAKED 
35Z8LDA#E4 3 ADCHD; STAHEE F STARS 1 5 LDADHLO: STAKB7 :LDAGHSF 5 STAHBS 
Et he vn 
z LDYag 
JSRLLSBIEPYA4SBNELL 27 
JSRLL 503 EMPAKTD : BNELL 283 LDXA0 
L23 JSRLL3Os INXsCPXASIBNELL2S:RTS 
353B:LLED LDACHET): Y3STACHBS), Ys INYGRTS 
36G0\DATUM ZOEKEN 
3E18:LLEL JSRLLE:LDA#BZ:BEOLLS2S RTS 
ZEZGILLEZ LDAO#BEISTAHBSELDAODHEC s STAHBS : LDADHSEF ; STAREG ; STAHBE 
3EZOLDYAS 
SE4B:LLEE LDACHBG) , YECMPCHBS), Y3 BCTLLS7 5 BNELL SG 5 DEV 
ZESBCPYOKFF s BNELLSE 
ZEEO:LLEG LDYAS 
SE7BILLES LDACHES), YsCMPEHBO) , Ys BCCLLS7 3 BNELL SES DEY 
SE6BBCPYORFF s BNELLSS 
SEID:LLEE RTS 
35780:LLE7 JSRLLGs JMPLLEL 
3710\NAAM ZOEKEN 
JSRLLTE:LDAHEZs BEQLL 39: RTS 
33 LDYD4 
374B:LL40 INYsLDAHSFSB, Ys CMPO#UD; BEQLLA1 CMP (HBO) » Y1BEGLLAG 
S7S0JSRLLE: JMPLLEE 
3768:LLái RTS 
ST7DAER. 
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graphic and games supoorter 


De GAGS Is een utility ROM die de ATOM 

uitbreidt met wen 36 tal statements, welke 
vitstuitend gericht zijn op graphic- en 
spelletjes applicaties. Het is uitstekend te 
gebruiken om een plaatje te maken en/of te 
verfraaien en het maken van spelletjes is nu 
voor iedereen weggelegd door de toepassing 
van zon, sprites, De handleiding van de GAGS 
is dan ook opgesplitst in ‘graphic support” 
en ‘games support’, 
De 36 statements van de GAGS zijn allen 
zowel in edit- als in runtime mode te 
gebruiken, Met een schakelkaart is de 
autostart ROM (men hoeft hem niet te linken) 
probleemloos te gebruiken naast de JOSBDX 
en/of de P-CHARME. 





De statements zijn: 


nieuwe ‘input’ statements: 
JOYSTK ATKEY 
grapisch support: 


INV BORDER PAINT CUBE CIRCLE PIXEL 
WINDOW WOFF SNOW NOSNOW FILL PAUSE 
HLINE VLINE SCROLL SOUND BLOCK MODE 
INK PAPER 


aämes support: 


BASE CREATE DEF SET UNSET ASSIGN 
DEASS SHOVE CARRY IMAGE TURN KILL 
ATHIT Pos 


Natuurlijk Kan men bepaalde statements ook in een andere categorie plaatsen 
doch met ‘games support’ is de softwarematige sprites handling bedoelt. 
Indien er tips en/of op- en aanmerkingen zijn, bel of schrijf dan! 
Hierbij bedank ik noa: 
Gert Jan Noorland, Dick Protzman, Bram Poot, 
Peter Ehrlich, Gert Zieleman, Frans van Hoesel en Ronald Boers 
voor het geven van nuttige tips, adviezen en demo’s, 


Gerrit Hillebrand 

Mendelssohnstraat 30 

7557 BJ Kenglo <0) 
tel: 074-9112931 


NIEUWE INPUT STATEMENTS 
voor design en spelletjes 


JOYSTK A,B,‚C 
Het statement JOYSTK biedt de mogelijkheid om de joystick (aangesloten volgens 
de club afspraak in ACORN NIEUWS No,5 > als input faciliteit te gebruiken in 


BASIC programma’s. Het statement vereist 3 parameters: 


A - variabele A t/m 2. Wordt met 1 opgehooad of verminderd indien de 
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jJevstick naar resp. rechts cf links beweegt, 

B - variabele A t/m 2. Wordt met j opgehoogd af verlaagd indien de joystick 
naar resp. boven of beneden beweegt. 

C - variable A t/m 2, Wordt met 0 gevuld indien de ‘fire’ Knop niet is 
ingedrukt, Wordt met een waarde ongelijk aan nu} gevuld indien de knop is 
ingedrukt, 





Bij geen uitslag van de Joystick veranderen de opgegeven parameters ook niet. 
ATKEY (A‚,B‚,C,...)Ca,b;c,...d 

M‚b.v. het ATKEY stateatement Kan men toetsen van het toetsenbord af’scannen’ 
en aan een ingedrukte toets een ’ON-GOTO’ jump toekennen. 

Te gebruiken toetsen in het ATKEY statement: 


egaABCDERFGHIJKLMNOP Q 
VWXYZ I12345é 78: je 


UNE) 


Ss T U 
> 


Bev. 

ATKEYCA,Z ‚W,U? {100,50,260,510) 
Wordt in bovengenoemd voorbeeld de toets ’W’ ingedrukt, dan zal het proaramna 
verder gaan op regel 260. Wordt er geen, of een Karakter ingetoetst die niet in 
de rij voorkomt, dan zal het programma vervolgd worden met de eerst volgende 
regel. 
n‚b, Het ATKEY statement is een volledige BASIC regelt nodig. Bij het niet 
indrukken van een toets, of een toets welke niet in de rij voorkomt, zal het 
ATKEY statement opgevat worden als een REM statement. LET OP: geen spaties 
plaatsen in de Karakterbrick en geen spaties tussen de beide haakjes: 14 


GRAPHIC DESIGN SUPPORT 


INV 


Spreekt voor zich! 
Het statement INV (inverse) inverteert het beeldscherm in elke graphic mode. 


BORDER x,y 


Het statement BORDER tekent een lijstje op het beeldscherm waarvan de maat 
bepaald wordt door de parameters x en y, De parameter x geeft aan hoeveel 
ruimte er tussen de linker en rechter Kant van het display en het lijstje wordt 
bewaard. De parameter v geeft aan hoeveel ruimte er tussen de boven- en 
onderkant van het display en het lijstje wordt bewaard. 

Het statement BORDER inverteert ALTIJD de pixels op het display. 

N.B, het lijstje is f pixel dik! 


PAINT x,y 
PAINT x,y,‚p 


(afgeleid wan een APFLE inkleur routine vit het Duitse computerblad C't, 
nummers:é+7 1993) 

M.b.v, het PAINT statement Kan men ingesloten vlakken op het beeldscherm (in de 
hoogste zwart/wit mode) inkleuren met een uit 32 zelf te definieren patronen, 


De parameters x en v geven aan waar het inkteuren dient te beginnen. Gebruikt 
men de parameter p niet, dan zal het ingesloten vlak wit ingekleurd worden, 
De parameter p geeft aan welk patroon men wil gebruiken. 
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Een patroon bestaat uit een blok van B&B pixels welke te detinieren zijn met 
het ‘sprite’ statement: CREATE, voorafgaand door BASE (zie games support) om 
vast te stellen waar de patronen in het geheugen moeten worden bewaard, 

Om het CREATE commando duidelijk te maken dat men een patroon en geen sprite 
wil definieeren, dient nen de switch ’/P’ mee te geven gevolgd door het patroon 
nummer (dit nummer uniek houden ') 

(switch altijd voorafgaan door een ‘slash’ en laten volgen door een dubbele 
punt) 


CREATE/P:p al,22,23,ad,25,ab,27,28 


p=patroon nummer 
al-a8=8 rijen van 8 pixels elk, dus een 8X8 pixel-blok 
alxbovenste rij 
a8=onderste rij 
{bekijk het demonstratie programma eens voor het gebruik van PAINT met 32 
verschillende patronen) 


CUBE p‚m‚x,y,‚b‚h 


M.b.v het CUBE statement Kan men rechthoeken of delen daarvan op het beeld 
tekenen. 
Parameters: 
p — plotting: Ozreset pixels 
i=set pixels 
t 2=invert pixels 
= x coordinaat linker beneden hoek van het rechthoek 
= y coordinaat Tinker beneden hoek van het rechthoek 
— breedte van het rechthoek 
= hoogte van het rechthoek 
= feature mode : O=tekent het rechthoek Ongeacht gesette pixels die hij 
‘onderweg’ tegenkomt 
Istekent het rechthoek TOT er een pixel op zijn weg 
geset is 
2=BEGINT te tekenen ais er een pixel op zijn weg geset 
is 
S=tekent een rechthoek TOT er een pixel op zijn weg 
geset is en BEGINT weer bij de eerstvolgende gsette 
pixel 
4=BEGINT met het tekenen bij het eerst gesette pixel 
en STOPT bij de eerstvolgende gesette pixel 
Onderstaand voorbeeld laat enkele van de mogelijkheden zien: 


3x 


10 REMARK: De toetsen 0 t/m 4 Komen overeen met de feature mode 
20 CLEAR4 

30 ATKEY £0,1,2,3,4)(40,50,60,70,80 
35 GOTO 30 

40 A=0;GOTO 90 

50 A=1;60T0 90 

é0 Ax=2;G0T0 90 

70 A=3;60T0 90 

80 A=4 

90 CUBE 1,0,80,80,80,60 

100 CUBE 2,A,60,90,80,60 

110 PAUSE 240 

120 GOTO 20 
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CIRCLE p‚x,‚yor 


Meb.v. CIRCLE Kan men mooie gestaten cirkels tekenen in elke gewenste graphic 
mode, De mee te geven parameters stellen het volgede voor: 

p = plot mode : osreset pixels 

I=set pixels 
: 2sinvert pixels 

x - x coordinaat middelpunt cirke 

y= yv coordinaat middelpunt cirkel 

r - straal van de cirkel 


Het CIRCLE statement is niet zo zeer op snelheid gebaseerd doch op 
nauwkeurigheid. De graphic supporter bevat een eigen wortel-trek routine 
volgens de Newton-Raphson methode en berekent de cirkels voor een Kwart. De 3 
andere kwarten worden dan deor spiegeling t‚o.v, het middelpunt erbij getekend, 


Een aardige one-liner wan Bram Poot: 
CLEAR4;FOR 1290 TO 10 S,-2;CIRCLE 1,128,96,13N. 


PIXEL a;b,‚2 


M.b.v. pixel Kan men controleren of een pixel op het beeldscherm met de 
coordinaten (a,b) ‚geset of gereset is, (resp. wit en zwar td 


b.v, PIXEL 20,38,B 

Hierbij wordt gecheckt of de pixel op de coordinaten 20,38 geset of gereset is, 
Indien geset dan wordt de variabele B gevuld met een waarde ongelijk aan O, Is 
de pixel niet geset dan zal B gewvuid worden met O0. 


WINDOW m,‚x,;y,b,h 


Mbv, WINDOW Kan men een raam creeren waarin wel of niet getekend mag worden, 
Dit raam wordt gedefinieerd doer de volgende parameters: 


m =mode : ser wordt alleen BUITEN het raam getekend. 
Izer wordt alleen BINNEN het raam getekend. 


x= x-coordinaat Jinker beneden hoek van het raam 
y= v-coordinaat linker beneden hoek van het raam 
b = breedte van het raam. 
h = hoogte van het raam. 

WOFF 


Het statement WOFF zet de WINDOW vectoren weer op de oude waarde terug zodat 
het beeldscherm weer normaat ingetekend Kan worden. Het systeem Kent nu geen 
‘window’ meer! 


FILL a,b,‚x 
Voor allerlei gebruik. Dit statement vult de adressen a tot b met de waarde x, 
b.v. 

CLEAR4;FILLH8000 ,#9800 , HAA 


NOSNOW 


Dit statement zorgt ervoor dat het beeld niet meer ‘sneeuwt’ ìndien men 
tekeningen maakt. Dit gaat natuurlijk we} ten koste van snelheid. Om die 
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snelheid, Ôm die snelheid en daarmede vof het sneeuwen terug te krijgen, Kan 
men gebruik maken van het statement: 





SNOW 


En zie hier, het sneeuwt!!! 

SNOW heft de werking van NOSNOW duidelijk op! Een hardware aanpassing tegen 
sneeuwen is natuurlijk nog steeds het allermooist, 

NOSNOW heeft geen effect bij PAINT. 


SCROLL U 
SCROLL D 
SCROLL R 
SCROLL L 


M.b.v. het SCROLL statement is het beeldscherm in elke gewenste richting en in 
elke gewenste graphische mode te ’scrollen’. 

Men heeft Keuze uit het scrollen naar boven (extensie U), naar beneden 
Lextensie D), naar rechts (extensie R) of naar links (extensie L), 

Het aantal stappen (pixels) dat gescrol}t wordt, bedraagt 8. 

Nadat er gescrollt is Kan men de tekening op het beeld weer aanvullen met de 
beschikbare teken-statements, Op deze manier is het mogelijk een tandschap op 
het beeld voorbij te taten scroilen. 

Tip: Twee maal naar recht of naar tinks scrollen, of 1 maal naar boven of 
beneden, maakt het mogelijk om de nieuwe ruimte, resp. tink ‚rechts ‚onder en 
boven aan te vullen met zelf gedefinieerde sprites. 

N.B. spaties tussen het statement en de extensie is niet noodzakelijk. 


HLINE p‚xi,yl,x2,y2,1,f,A,B 


Het statement HLINE {en VLINE) is een uniek lijn-plot commando, voor het zgn. 

‘on focus’ 30 tekenen. Het biedt de mogelijkheid om lijnen te tekenen vanuit 

een start-coordinaat tot een bepaalde opgegeven x=coordinaat, waarvan de 

y=coordinaat op de lijn tigt die zou gaan tot een bepaald opgegeven 

tfocus-pixel, 

De input parameters: 
Pp = plot mode : 





zreset pixel 
=set pixel 
1 2=invert pixel 
xl = x-coordinaat start pixe 
yl = y-coordinaat start pixel 
x2 — x-coordinaat focus pixe 
YZ » y-coordinaat focus pixel 
Ì - x-coordinaat eind pixel 
f - pixel feature : O=tekent, ongeacht gesette of geresette pixels 
Istekent lijn, totdat het een pixel tegenkomt welke 
geset is. 





De output parameters: 

Azvariabele A t/m 2, Wordt gevuld met de x-coordinaat van de 
laatst geplotte pixel.{x-coordinaat van de eind pixel of 
de x-coordinaat van de pixel die bij pixel feature=i is 
ontstaan. 

B=variabele A t/m 2, Zoals bij A, doch nu de y-coordinaat 


VLINE p‚xl,‚yi,‚x2,y2,1,f,A,B 
Hetzelfde als bij HLINE, doch nu l=y-coordinaat eind pixel 


Bestudeer eens deze statements; er zit meer kracht in dan je denkt! (zie 
demo-programma voor enkete leuke toepassingen.) 
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PAUSE a 





Het statement PAUSE wordt gebruikt om vertragingen in het programma aan te 
brengen. 
Parameter a: iz a (=65535 
Hierbij genereert elke eenheid een vertraging van 1/60 seconde. 
a={ vertraging 1/ó0 seconde 
2265535 vertraging +/- 18 minuten 


INK a 


De Kleurenset van de ATOM is m.bv, INK uit te breiden van 4 naar 16 Kleuren, 
Daarentegen wordt de verticale resolutie gehalveerd. 


parameter a Kleur parameter a kleur 
0 transparant groen 8 cyaan 
1 Jicht groen E4 grijs 
2 paars 10 blauw 
3 donker bruin ti donker blauw 
4 groen 1) 12 groen 2) 
5 geel 13 oranje{2) 
é rose 14 magenta 
7 oranjes D 15 roed 
De Kleuren zijn afgeleid van een ATOM met de ‘DELFTse’ Kleurenkaart, 
PAPER a 
M.bev. PAPER kan men een Kleuren achtergrond creeren. 
parameter kleur 
0 groen 
t geel 
2 blauw 
3 rood 


Het statement PAPER selecteert de hoogste Kleuren mode, maakt het beeld schoon 
en de verlangde achtergrond Kleur wordt ingekleurd. 
vb. 

10 PAPER 2 

20 FOR I=10 TO 100 8.3 

30 INKCCI-10)/6) 

40 CIRCLE 1,64,96,1 

50 NEXT 

éG END 


MODE a 


M.b.v. het statement MODE kan men een graphische mode selecteren zonder het 
beeldscherm te wissen. 


graphic mode resolutie parameter 

64 48 0 

la 64 64 Î 

1 128 64 2 

2a 128 64 3 

2 128 96 4 

3a 128 94 5 

3 128 192 é 

4a 128 192 7 

B 
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BLOCK m‚x,‚y.b,h 





M.b.v, BLOCK tekent men in een zelf te Kiezen graphische mode een volledig 
gevuld blok die bepaald wordt door de volgende parameters: 
m = alot mode :O=reset pixels 

I=set pixels 

2einvert pixels 
= X coordinaat tinker beneden hoek van blok 
7 Y coerdinaat tinker beneden hoek van blof 
breedte van het te tekenen blok 
— hoogte van het te tekenen blok 


ox 
: 


v.b. CLEÉARAGBLOCK 1 ,25,25,60.40;BLOCK2,75,55,30, 30;BLOCKO, 35,35, 52, 12 
SOUND p‚d 


SOUND verzorgt enig geluid op de ATOM. Dit is alleen maar toegevoegd aan de 
GAGS om bij toepassingen in spelletjes enig bijpassend geluid te krijgen. 
Hierbij is : p= pitch (toonhoogte) Mej 255 

d = duur van de toon, 1{=d{=65535 





Xkuur van de toon. fC=dl=65535 


Lid 
GAMES SUPPORT 


SOFTWAREMATIGE SPRITES HANOL ING 


Sommige personal computers hebben hardware die uitgerust is voor het gebruik 
van sprites. Een sprite is in het algemeen een user-definable shape die, 
eenmaal gedefinieerd en gepositioneerd op het beeldscherm, verder vergeten Kar 
worden totdat men het wil verplaatsen; de hardware neemt dan atle acties over, 
De ATOM heeft geen sprite-hardware, maar dat wil niet zeggen dat men geen 
sprites kan gebruiken, Zeer zeker niet! 

De sprite-handling in de GAGS is volledig software-matig geregeld. De sprites 
worden op het beeldscherm geplaatst met de EOR (exchusive-OR) functie (N.B: (X 
EOR VIEOR vaX >, 

De sprites in deze supporter bestaan uit 16X8 bits. Het is mogelijk elke sprite 
een unieke naam en nummer te geven. In totaal kan deze supporter 56 sprites 
verwerken. Het voordeel van het tekenen van spelletjes objecten met behulp van 
sprites ligt in het feit dat men zelf niet hoeft te onthouden waar de sprite op 
het beeld staat, De gehele administratie rondom een sprite wordt bijgehouden 
door de sprite statements (het wel of niet op het beeld staan, de positie, of 
het botsen met andere sprites), 


Stel we willen het volgende figuurtje in een sprite plaatsen: 


hexadecimaa} 
HOO #00 
H3D #00 
HIE „18 
Hor nE4 
#0F #Eo 
RID #90 
824 #28 





#42 nâd 
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Om deze sprite te creeeren Kunnen we gebruik maken van het statement: 


CREATE <named,al,a2,a3,..r..r ‚alié 
CREATE <name>,al,a2,a3,....... valé/Ain 


al tot en met alá zijn als volgt in een sprite opgboergen: 


start positie 





{nameò = maximaal 8 letters 


Willen we ru de voorheen getekende sprite ‘HOND” neemen, dan Kunnen we deze als 
valgt in het programma definieren: 

CREATE HOND, H42,824,H19,HF,HF HSE, 30,0, 844, H20,HI0, HEQ, HES, HIB, 0,0 
Nu zit de ‘HOND’ in het sprite archief. 
M.b.v. de switch ‘#A” (assignment) is het mogelijk om direct een assignment 
nummer mee te geven ‘zie ASSIGN), Op deze manier is het altijd mogelijk om b.v. 
20 maal de hond te creeren die allen niet in naam maar wel in assignment nummer 
verschillen en dus daarmee ook afzonderlijk te besturen zijn: 

FOR J={ TO 30 

CREATE HOND,#.....,.0,0/Azl 

NEXT 1 
Een andere eenvoudige manier is: 


DEF Cname>,0/4 =-tók-— 0/1 
DEF: 0/1 =Ti6X-- 0/1 


Ket statement DEF {define) maakt het mogelijk om in het programma een sprite te 
ontwerpen. Een gesette pixel wordt voorgesteld door 1 en een geresette pixel 
doer 0, Het is nu duidelijk dat 8 DEF statements een volledige sprite maken, 
Tussen de DEF satements mag rustig een ander niet-define statement geplaatst 
worden. De sprite-handler houdt zelf bij met welke sprite hij bezig is. 
Onze hond wordt nu: 

DEF KOND,0000000000000000 


DEF: 0011f10400000000 
DEF: O@11111000011000 
DEF: 0000111411100 100 
DEF: 66001111 41100000 
DEF: 000 1400110010000 
DEF: 6010010000910 1000 


DEF: 010000 1051000100 
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Nu zit “HOND: cok in de sorite administratie. 
Zou men b.v, het volgende stukje in een programma hebben: 





10 DEF INVADER,IOLIO1S 1141001109 
20 DEF MONSTER, 1100100 11t110101 
30 DEF: 00000t1111100000 


Regel 30 wordt een definitie die wordt toegekend aan 'INVADER’ omdat deze nog 
geen 8 definities in totaal bevat. 

Default X- en Y coordinaten van sprites gecreeerd door CREATE en/of DEF zijn 
255,255 (niet te zien op het beeld). 

Voordat men begint met ‘createn’ of ‘definen’ in een programma, moet men er 
eigenlijk zeker van zijn dat het administratie geheugen geheel gewist is (wat 
bij het inschakelen van de ATOM vaak niet het gevat is). Om dit administratie 
gedeelte te wissen is er; 


BASE a 


Het statement BASE zet het blok geheugen (ZK) beginnend bij het adres waarvan a 
het high-order gedeelte voorstelt op nu) (behalve het gehevoen voor de paint 
patronen). 
b.v, BASE#73 
nu is : #7800 — H7BFF 32 paint patronen 
87900 — HZFFF sprite administratie 


ASSIGN <name>ò,a 


M.b.v. het ASSIGN statement koppelt men een nummer aan een bepaalde sprite. 
Cname) = naam bestaande sprite 

â = assignment nummer 1(=a{=255 

Het voordeel hiervan is dat men in een programma meerdere sprites 
tegelijkertijd kan laten bewegen d.m.v. een simpele FOR/NEXT loop. 

v.b. We willen het nummer 6 aan de hond toekennen: 


ASSIGN HOND, 6 


indien men meerdere assignment nummers aan dezelfde sprite toekent, geldt het 
Jaatst ingevoerde assignment nummer, 


DEASS <name> 


Het is logisch dat DEASS (de-assion) de werking van ASSIGN opheft. 
Doen we; 
DEASS HOND 
dan Kent de computer de ’HOND” niet meer als nummer é, 
bev. 
10 ASSÌGN HOND,8 hond bekent als nummer @ 
20 ASSIGN HOND,2 au is hand bekent onder nummer 2 
30 DEASS HOND de hond is niet meer bekend onder een nummer 


KILL <name> 
KILL a 


<name> = naam van de sprite 
à = assignment nummer vande sprite 
Met KILL kan men een sprite volledig uit de sprite-administratie halen, 
v.b. 
KILL HOND 
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of KILL 6 





Nu is HOND cf de sprite met assignment nummer é niet meer bekend in de sprite 
organisatie. 


SET :Cnamed ‚x,y 
SET a,‚x,‚y 


Door gebruik te maken van SET kan een gedefinieerde sprite op het beeld geplot 
worden. x en y stellen respectievelijk de X- en Y-coordinaten op het beeld 
voor. Op dit punt zal de Jinker boven pixel van de sprite geplot worden. 
<name) = naam van de sprite 
a = assignment nummer vande sprite 
LET OPsaltijd een dubbete punt voor de naam van de sprite plaatsen 
SET plaatst zeif de coordinaten in het sprite archief. 


UNSET : {named 
UNSET a 


M‚b.v. UNSET is een sprite van het beeld te halen, De coordinaten worden weer 
gepreset op 255,255. 
vab. 

10 CLEAR4 

20 SET:HOND, 109,20 

30 UNSET : HOND 

40 ASSIGN HOND, 2 

50 SET 2,100,80 

60 UNSET 2 

70 KILL HOND 


IMAGE: {named ‚x,y 
IMAGE a‚x,y 


Het statement IMAGE is voledig gelijk aan SET, doch nu worden de coordinaten 
van de sprite niet in de administratie opgeslagen. (handig om tussen door 
ergens op het beeid even een extra hondje neer te zetten), UNSÉT heeft nu 
natuurlijk ook geen enkel effect op de door IMAGE geplotte sprite. 


TURN: {named 
TURN a 


M.b.v. TURN zal een sprite om zijn middenas draaien. (zowel op het beeld als in 
zijn administratie), Indien de sprite NIET op het beeld staat, zal toch de 
omgedraaide versie in zijn admministratie opgeslagen worden. 


CARRY : {name ‚x,y 
CARRY a,‚x,y 


Dit statement verplaatst een sprite over het beeldscherm. De sprite, bekend 
onder de naam (named) of een assignment nummer (a) wordt van het beeldscherm 
gewist en op de nieuwe coordinaten (x,y) geplot. De nieuwe coordinaten worden 
onthouden. Eveneens hier de dubbele punt voor de naam plaatsen 


SHOVE : <name> ‚dx ‚dy 
SHOVE a,‚dx,‚dy 


Bij CARRY was het noodzakelijk om te weten welke coordinaten de sprite had en 
Krijgt. Dit is bíj SHOVE niet noodzakelijk, Hierbij wordt een sprite 
voorgesteld door de naam (énameì) of het assignment nummer (a) over het beeld 
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verschoven volgens de verplaatsingen voorgesteld door dx en dy 

Dus SHOVE:HOND,-4,2 zal de ‘hond’ van de oude positie wissen en Op nreuw 
platten volgens de relatieve verplaatsingen voorgesteld door dx en dy. De 
nieuwe coordinaten is de gebruiker niet meer bekend, maar worden wel in de 
sprite-administratie bijgehouden, 





Stel we hebben een sprite zoveel verschoven dat we zijn coordinaten volledig 
kwijt zijn, dan Kunnen we ze opvragen dim.v. het statement: 


POS: {named ‚X,Y 
POS a,X,Y 


POS (position) zal de coordinaten opslaan in twee variabelen 
name) = naam van de sprite 
a = assranment nummer 


x = variabele A t/m 2, wordt gevuld met X=toordinaat van 
desorite 

Y = variabele A t/m 2, wordt gevuld met Y-coordinaat van 
desprite 


In spelletjes is het vaak gebruikelijk om objecten te raken of op te eten of 
iets dergelijks. 

Om te testen of een sprite werkelijk een andere sprite raakt of overlapt, 
kunnen we gebruik maken van: 


ATHIT:<nameld,;:<name2d ; 
ATHIT :<namel> ‚b; 

ATHIT a,‚{name2>; 

ATHIT a,b; 


Hier ís 
Cnamei> = naam wan de eerste sprite 
a assignment nummer van e eerste sprite 
<name2) = naam van de tweede sprite 
b = assignment nummer van e tweede sprite 
Het ATHIT statement is wederom op te vatten als een IF-THEN constructie. Indien 
de twee sprites elkaar raken zal de rege! afgemaakt worden. Indien ze elkaar 
NIET raken, dan zat de rest op de regel niet uitgevoerd worden. 
b.v. 
10 ATHIT:HOND,:POES;GOTO 30 
20 END 
30 P,*BIG TROUBLE" GEND 
In het geval dat de hond en de poes elkaar niet raken zal het programma 
eindigen op regel 20. 
LET OP: Een ‘5’ achter het ATHIT statement ís NOODZAKELIJK! 





afkortingen 


JOYSTK Jd. ATKEY ATK. EN - 
BORDER BO, PAINT PA. CUBE cu, 
CIRCLE Ci. SCROLL SC. PIXEL Pl. 
WINDOW w, FILL - NOSNOW NO. 
SNOW EN. HLINE HL. ULINE UL, 
PAUSE PAU. INK - PAPER PAP. 
MODE M. BLOCK BL. SDUND 50, 
WOFF wo. BASE BA. CREATE CR. 
DEF - ASSIGN As, DEASS DE. 
TURN TU. IMAGE IM, KILL K. 
SET - UNSET UNS, Pas - 


ATHIT ATH. CARRY CA, SHOE SH, 
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Tip: gebruik niet te veel afkortingen, het maakt een programma alleen maar 
onleesbaar, gebruik ze alleen maar indien snelheid gewenst is, Za Kort 
mogelijke namen of het gebruik van assignment nummers zal het programma oak 
sneller maken. 





zere-page gebruik 


SF - 60 tijdelijke data opslag voor CREATE en DEF 
70 — ZF allen worden zeer tijdelijk gebruikt 
230-233 WINDOW coordinaten 

234-235 plot reutine vectoren 


236 WINDOW on/off indicatie 

237 NOSNOW indicatie voor sprite handling 
23A-23C INK items 

23D BASE adress sprites en paint patronen 


23E-23F NOSNOW plot routine vectoren 





18 PROGRAM CREATE 

20 REM INVOER CREATE (NAAM) 

20 REM MAAKT EEN ASECI-FILE AAN 

4D REM CTRL "D" BEEINDIGT DE ROUTINE 

50 REM EXCAPE BREEKT DE ROUTINE AF 

E03 REM DE FILE KAN MET +EXEC (NAAM) GEEXECITEERD WORDEN. 
78 DIM L 
80 FOR I=@ TO SOi3LLI=#S9S iN. 
30 P.$21:P=AsGDSUB a 

107 P.$EsP=A:GOSUB a 








119 CREATE" 3 T=T+LENT 

128 LA/25ENHEA T? Lel LBAESE Tele 
150 :T?1=4 

140 END 

152 

16da 

170 

180:LLOIJER #ESC9 

130 TLC 

209 JSR HESSE 


BilLisLDY AFBAISTY HEE 
#CD18 
SiLDX SHD 


4OrLLAILDA HIA, XILDY HCE 














250 CMP BHBAIBEG LLS 
250 JSR #EBBC 

270 CMP @A#ODIBER LLi 
250 INX 

290 BNE LL4 
SOD:LLEILDA DÉODS ISR HEBBC 
s12 JSR #E89E 

3e JMP #CSSB 

320 


ZSLARETURN 


PAG. 48 [ACORN NIEUWS [Z-DRAW | ANDRE DE BRUIN 


++ +3-DRAW + + + 


Ale met penulp van gen cumputer F-dimensionate voor: 
getelend, dan aastaan vaal gl 
willen zien is zoiets als afb 2 












ellingen worden 
tjes zoals afb t, wat we eigena, 





AFBEELDING | 





AFBEELDING 2 


Het hele probleem schuilt in de zogenaamde "hidden-lines’, dit zijn de 
lijnen van een voorwerp die we niet mogen zien vanuit een bepaald 
getichtspunt, omdat ze afgedekt worden door een deel van het voorwerp. 
Het 'hidden-lines' probleem ís al op verschillende manieren opgelost, 
naar die methodes hebben met elkaar gemeen dat ze een gigantische hap 
geheugen vergen en/of zeer lange rekentijden vragen, 

Flinkt miet ideaal veor de ATOM. (vaor welke machine dan wel ®). 

De nu gekozen oplossing is vrij simpel maar -helaas- niet perfect. 
Eerst maar sens de methode: 








ve bouwen gen vaarwerg niet op uit Lijnstukjes maar uit vlakkken. 
-Als wa het voorwerp gaan tekenen, dan tekenen we eerst het vlakje dat 








het verste van ons verwijderd is, daarna diegene die daar vlak voor 
ligt etc. 
—Een vlaije wordt met zwart 'ingstteurd’ voor de rand eromheen 


getelend wordt. 








Het zwartkleuren van het vlakje is het hart van de methode: Als er 
zich in het te tebenen vlakje nog lijntjes bevinden (van 
echterliggende vlatjes), dan worden die *weggegumd 





Het klintt heel maltelssk, maar het bepalen of wen bepaald vlatje 
zich achter een ander bvindt ig een vrij complexe bezigheid. 


De oplossing die hiervaar gelozen ie, 1x eenvoudig maar ‘daardoor 7% 
niet "faid-proof', beschauw het gewoon als een duimregeltje: 
Bereken een punt, waarvan de coordinaten het gemiddelde zijn van 
alle hoekpunt-coordinaten van het vlakje, bereken dan de afstand 
van dat gunt tot het ‘amg’, Doe dat mek alle vlatten, en vergelijt 
dan de afstanden. Daarmee bepalen we dan úe volgorde van tekenen. 














Het tweede probleempje is qemener, rie afb 7,4,5 en 6. We zien dat het 
niet uitmaakt welk vlakje we eerst tekenen: het resultaat(4 en 5) 
wordt toen niet mat we bedoelen (4), Dit is alleen ap te lassen dour 
seerdere slat jes te aebrumken, 
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AFBEELDING 3 AFBEELDING 4 AFBEELDING 5 AFBEELDING & 


Tot zover de gebruikte methode, nu iets over het programma zelf: 


U kunt de gegevens van gen aantal (maximaal 256) vlakjes invoeren, Die 











vlakjes  m 2 t/m ) hoeken bezitten. De coordinaten (van elk 
hoekpunt: 2) hebben aen bereik van 0 t/m 255. 
De ingevoerde ges 





ns worden opgeslagen vanaf adres #9800 (gestapeld 
geheugen boven beeldscherm) Als u de gegevens ergens anders k 
wilt, dan moeten alle #98. in het programma veranderd worden, 
18GB/RxK/V -comaanda uit de HOESEL-ROX is daar zeer geschikt voor ) 
Het programma heeft gwen voorziening om de data te SAVE’n. Dit kunt u 
EUITEN (dus na ESC) het programma doen door : 

XSAVE "DATA" BBD AGU 

later kunnen de gegevens dan weer ingelezen worden met: 

KLOAD "DATA" 











&ls u het programma start verschijnt er een menu, hierna volgt een 
korte omschrijving van de onderdelen: 





or RESET 
Alleen gebruiken als een nieuw VOORWERP ingevoerd moet worden 
INVOEREN VLAKKEN 
Hier kunt u de gegevens invoeren van sen vla 
valgnumner krijgt 
VERANDEREN VLAEJES 
U kunt nu de coordinaten veranderen van een al bestaand vlakje 
(net aantal hoeken kan niet gewijzigd worden) 
UITZETTEN VLAKJES 
Als een vlakje ‘uit’ staat wordt het niet getekend, maar de 
gegevens blijven behouden 
AANZETTEN VLAKJES 
Een eerder uitgezet vlakje kan weer in ere hersteld worden 
5: TEKENEN 
Nu moet u gegevens over de positie van waarneming invoeren: 
ZIMUTH: draaiing (in graden) op grondvlal 
“ELEVATIE: hoek tov het grandvlak (zie afb 71 
FBTAND: afstand van het ’voo’ tot de oorsprong 








dat automatisch een 
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AFBEELDING 7 





AZ EMUTH 
ELEVATIE 
x *ous. EN 
Dan wordt er nog een X,v en 2 gevraagd waar naartoe geleken 
wordt. (normaal:t,1,0, ofvei de Prong) 
Verder kunt u een X- en v-corractie invoere 
de tekening op het scherm bomt. (normaal tbe 











? geven aari waar 





fls laatste kunt u aangeven of de vlakjes al of met 
‘ingekleurd’ moeten worden, kiest u vaar ‘niet’ dan onstaat veer 
ten ’wire-frame’ (zoals aftbi), 


Als de tekening op het scherm staat begint het eerst ingevoerde 
vlakje te knipperen. U heeft nu de volgende mogelijkheden: 
“toets '>’ : het volgende vlak begint 
ztaets "<? : het voorgaande vlaljs gaat kaipperan 
“toets 'J’ 1 het krapperende vlakje wardt imgetleurd 

‘links bovenin beeld staat he van Muidig vlak) 
“toets 'B’ 7 (BOO: u bunt nu dire er intalken van sen 
vlakje 
-toets (STOP) de linkerbovenhoek werdt schoon en de 
tekening blijft op het scherm tut u op een toets druit. 
























6: UITPRINTEN 
Hiervoor gekozen, worden de ge 
arinter gestuurd. (heeft u geen 
subroutine "F’} 





le vlakjes naar de 
rpder dan "$2’ uit 





mn 








- zuec 
Andre de 
Baljuw 11 
2671 Hi Maaldei 1 
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18 REM temeer tteokbokki keten de ekke: 
20 REM + E-DRAW. GEDOCUMENTEERD ” 
20 REM + 

4Ò REM + DEZE VERSIE IS ALLEEN GESCHIKT VOOR MENSEN DIE 
50 REM + KAMPEN MET EEN REDELIJK GEHEUGENOVERSCHOT 

ED REM * HET PROGRAMMA BESLAAT NL. EEN SLORDIGE il K ! 
70 REM # DOOR ALLE REGELS DIE BEGINNEN MET 'REM +#' TE 
50 REM # VERWIJDEREN, IS HET PROGRAMMA OOK TE GEBRUIKEN 
398 REM # OP EEN "GESTAPELDE! ATOM : 

108 REM + CGEHEUGEN t #2800..#4002 EN #8800. . #ADDO) 





EE Ad 


118 REM bommen ener * 
129 REM * VOOR KLACHTEN: DREIGEMENTEN, LOFUITINGEN: + 
138 REM * ADELSTANDVERHEFFINGEN EN ANDER MOOIS, KUNT U * 
148 REM » ALTIJD TERECHT BIJ: Ka 
158 REM + ANDRE DE BRUIN * 
1E8 REM * BALJUW il, 2671 HL , NAALDWIJK * 
178 REM ssatantotopenkk kotfeestje pakotfaeopateokerbek jojanneke 
188 


198 DIM XXt2B), YYC20), ZZCEO, GEC1O,SSCED) 
209 PSI SP kek ZD st B # RESET"? 
P." 1 2 INVOEREN VLAKJES""" 2 5 VERANDEREN VLAKJES"' 
P." & 1 UITZETTEN VLAKJES""" 4 2  AANZETTEN VLAKJES"" 
P." 5 2 TEKENEN""*" 6 2 UITPRINTEN""" 

N. "KEUZE"KiP. $11sU. KO =D AND KC7 
+GOS. h 








240 
258 
258 
278 
2Ee9 
298 
308 
sië 










ld 

S4Bn A=isB=#9BDEIF, I= #ISLUATOHNDDDG II=DiN. FRET. 
3558 

358 REM sototteekestotaedegspn toto: 
378 REM * 
358 REM 
38 REM * VAR J:TE ZOEKEN VLAK : BrADRES VAN VLAK * 
4O8 REM breeder opp pestkoppen od: oke afenpenge obs openge opo ao ok a abn aken. 
418 

&2Dc BekIDD2IP, EI!" tet UITZETTEN VLAKJE en 
438 IN. "WELK NUMMER '"J 

&4Bu IF B?10JiB=RrB?0IIF ?2B00 36. U 


ooh apen akeopengende pook ofeopeopeaks okeopendeoh kenbare ekke 
ZET HET 2-DE BYTE V. DATR OP 2 














458 IF ? :P.$7" Hen iet aanwezigsmnt! LI. #FFES:G. 470 
EB B; #ISE1=?#IED1 HI 

4678 RET. 

488 


49Da BeFIED2IP, EIZ" Hok AANZETTEN VLAKJE stookt? TT 

580. IN. “WELK NUMMER "J 

518 IFB?i0JiB=B+B?@3IF B) 016, 510 

S28 IF ?B=8;P. $7" “teniet aanweziesiert! ;LI, HFFESSG, S4D 
530 Boz=0; IF P#9801 0 Ds I#IED1=#IED1-1 

SAAD RET. 
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550 
560 
578 
588 
598 
E88 
E18 
628 
65B 
648 
658 
5EB 
678 
Een 
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REM sorttandegden eek tenen ade enn et me me eee 
REM * AFDRUKKEN GEGEVENS VAN ALLE VLAKJES 

REM + STEL: ADRES = STARTADRES VAN EEN VLAKJE (= B) 

REM + DAN ?ADRES = AANTAL BYTES DOOR DIT VLAK GEBRUIKT 
REM « ADRES?1 = VLAKNUMMER 

REM « ADRES?2 = STAAT VLAK AAN OF UIT 7 

REM « ADRES?S EN ADRES5?4 «= AFSTAND TOT “ODG" 

REM « VANAF ADRES?5 TELKENS 3 BYTE PER HOEK (X, Yr Z) 

REM memmen nnen ennen nennen eeen 
REM « VAR: B:ADRES VAN VLAK SI:TITEL VAN DATA 

REM « T:" POINTER’ IN DATA VAN EEN VLAKJE 

REM oteotoroopoobeads stents obzops ok ofeofeopeeohepe ata: aftekende aja eee wa benee nfi ej akan ae 


VEER RER EH 


6D B=HIBD2SP. $12" sk DATA ld 


798 
710 
720 
750 
748 
758 
768 
778 
788 
750 
883 
818 
828 
ez0 
840 
850 


122800: IN. "NAAM “SI;P. $2$14SI815 * 

IF ?B=8iP. DATA LOOPT TOT: "&B’ S5iRET. 

P. "VLAKJE 2"B?1 " # HOEKEN :"(?B-5) /5' 

IF B?2=2 sP."STRAT UIT" 

T=Sif. I=1T0C?B-5)/51P, BIT, ", ", BICT+ID, ", *,BICTHDD "5 * 
T=TeSiNEXT:P.' }BeBeB?Q5G, 710 











REM steotenkekeokegndenkeorbeak aoe oefent otk beokcafoaekeop aten a enkenkobenkeobpeneneeakea ijk 
REM * VERANDEREN VLAKJE * 
REM #*DE DATA V/E VLAKJE WORDT OPGEHAALD EN TERUGGESTUURD* 
REM sk 
REM * VAR: J (INPUT) TE VER. VLAKJE * ADRES VLAKJE * 
REM + T: "POINTER IN DATA z AANTAL HOEKEN * 
REM * X,Y,Z: COORDINATEN HOEKPUNTEN * 
REM sobenbenfortsatonkokekoheopoopenjoop sesterkenketekenpenk aksen ekeren. 






8503 B=#3802;P. 812" sk VERANDEREN VLAKJE tut? 


878 


IN. "WELK NUMMER "J 


880 IF B?10 J:B=B+B?D;IF BOO 16.6 


898 
0% 
918 
928 
58 
348 
258 
Ed 
978 
982 
590 
1808 
1818 
1028 
1850 
1040 
1253 
1858 
1878 


IF ?B=0iP,$7" erniet aanweziatkr"' +6, 970 

T=StäzbiF, I=1TOC?B-5)/3 
XKI=BITsVYI=B?CT#ID 3 ZZI=BI(T+2) 3P, XXI» YYIs ZEI’ TT SiN. 
AzJiN=(?B-5) /S3 IN. "VERANDEREN (D=NEE)"X3 IF X=05GOTO 970 
D=OIFOR I=iTO NiP,“X"I" WAS: "XXISIN, Xi XXI=XiP. "Y"I 

P.“ WAS: “YYIFIN. YsYYI=YiP.“Z"I" WAS: "ZZISIN. ZIZZI=Z 
N, Is T=S 

F. I=tTON:B?T=XXIGB? (T+1)=YYIGBI T+ =ZIIST=T+EEN. 1 
LINKSFFES; RET. 








REM steareatoatendeogoatestatopootenkcoronteop atie aken opeapeabeaeobeofaake sa aaa apo a oa estote on o 
REM « INVOEREN VLAKJE * 
REM «DE DATA V/E VLAKJE WORDT INGELEZEN EN OPGESLAGEN * 
REM tru mennmnnn men venennnmmenvemen nennen hid 
REM * VAR: Az VOLGNUMMER VAN VLAK 3 ADRES VLAKJE «* 
REM * T: 'POINTER' IN DATA % AANTAL HOEKEN » 
REM * X, Ys 2: COORDINATEN HOEKPUNTEN hd 
REM neneatoatororedenteokoheokeops oep: ikonen poop ako abe ap beant et 





1080v A=2#9500+1 


1098 
1100 
1118 
11279 


P‚s12" ver INVOEREN VLAKKEN tent! tt VLAKNUMMER s "A 
IN, * "HOEVEEL HOEKEN *N:5=3 

FOR I=1TO NiP, "X" Is IN. Xs; XXI=X3P, “Y"IG IN. Yi YYI=YiP. *2"1 
IN. ZS ZZI=1ZiN. 1 


3-DRAW ANDRE DE BRUIN [Acorn NIEUWS |PaG. us } 

































11358 B=#3El QD BEB+H?8tU, 78=0S IE=SN 2t=AiT=5 

1148 F. I=1TON:B?T=XXIGB? CTI) =YYIGE2CT =ZiisTeTtEiN, I 

1150 B=B+S4N#5; ?B=0t 7HIEOD=AS RET. 

1168 

1178 REM *2TEKENEN ters: 

1188 REM toortsen hekkekepnteookookanfeopoteoktenbenkok kenker otnteokeokenke nkbak 
1190 REM * TEKENEN VAN COMPLEET FIGUUR hd 
i282 REM * EERST WORDT DE VOORSTELLING GETEKEND, DAARNS GAAT » 
1218 REM * DE VOORSTELLING GE-’EDIT' WORDEN Do 
A22 REM trmnernnen ennn meneren nennen nnen en * 
1258 REM WEL Ci) DF NIET (@) INKLEUREN VAN VLAKJES * 
1240 REM ppo opzop opaak pepe of fj op obeopzopooboko oppen kookboek 
1250t GOS. 1 +605 GDS, d; GRMOD: P=99993I93 2#EL=DIP, * * 

1259 

1278 REM sk: e Rhene eeens ame aneh ahaha 
1288 REM * EERSTE GEDEELTE: TEKENT HET GEHELE VOORWERP hd 
1298 REM. * DAARVOOR WORDT EERST HET VLAKJE GEZOCHT DAT HET * 
130B REM #* "VERSTE' WEG IS VAN HET 'OOG'. DIT VLAKJE WORDT * 
1318 REM * PAS GETEKEND ALS HET 'AAN' STOND EN HET NIET AL * 
1328 REM # EERDER GETEKEND WAS * 
1338 REM kernen eneen ennen ennen enen * 
1348 REM + VAR: Kz TELLER, VAN 1 T/M AANTAL VLAKKEN CAAN) * 
1350 REM * Di CHULP) AFSTAND TOT ' 006” * 
1558 REM #* 3 AFSTAND HUIDIG VLAKJE TOT * 006’ * 
1578 REM * z VOLGNUMMER TE TEKENEN VLAKJE ad 
1588 REM + 3 AFSTAND VORIGE GETEKEND VLAKJE TOT ’DO06' * 
1398 REM ä js Baotian in aad 
1482 

1418 FOR K= 1T0 (?#3500-HIEBIJ:REM = AANTAL TE TEKENEN VLAKJES 
1420 B=#SE0 =0;:FOR I=1t TO ?#9500: IFEAD? SIM=B? 23 BBB 0 
14638 IF DZ AND Dí=P AND M=D THEN ZeDiW=l 


1440 


1452z 


1452 
1478 
1480 
1499 
1500 
1518 
1522 





N. IsP=ZiB=#390E: Iet; T=5 

IF ICW THEN B=B+5?8tI=I+13G. z 
F,I=1TO CB?0-5)/Z3X=B2Ts Y=BIT+1D 3 ZEB2 THE) 
KXeXiAYeYin Zei 05. at TeT+E KKI=KGiYYI=KHINEXT I 
REM {GEBRUIKT} 
N= CB?D-SI/EIKKONHID EXKI EYYONHIJ=EYYLG IFR=13 GOS. w 
T=55G0S. eiNEXT K 





REM bestoat tess akzapeob apa opeapoade aja apk akeakooknpokeopootdakeokopenkbeakekokokoakk: 















1550 REM * TWEEDE GEDEELTE: ’EDIT' : ALLE VLAKJES WORDEN * 
1548 REM #* DOORLOPEN: EN ER WORDEN COMMANDO’ S INGELEZEN * 
1550 REM skekstapserespofeopoktnptop eol: apokopepokakokool ak ops apatiet ioko aj ot opbakken: 
1558 

1578 K=liB=#980Zi0=5 

1580 T=SiN=CB?0-5)/5; If B?2=2sP=25G. 1620 

1598 F‚ Isl TO NiX=B?TiY=B?CT+1) 4 ZB? CT+2) sAK=NE KY=Vi LZeEZ 

1620 GOS. as T=T+5i XX GiYYI=XHINEXT 1 

E18 P=2iKXEN+ID=KKIEVVENHID=YYI 

1628 DU KEYW: IFB?2 (0) 2;C=65 GOS, es P=P+i-P/ 22 

1638 UNTIL W=CH"J" OR W=CH"G" OR W=CH"," OR WCH". " OR W=CH"5" 
1648 IF W=CH"S";P, &58" "3K=S3IF Pe1:C=65 605. e 

658 IF W=CH"S"iLINKGFFEZ: RET. 

IEEB IF +C=E5 GOS. e 

1678 IFW=CH"J"AND B?20 23 GOS. ws C=53 605. @ 


1688 


IF W=CH", "GIF K+1(=2 5500 





=B+R?OS Kek tl 
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15398 IF WOCH"." AND WOCH"G"5G, x 

1780 IF W=CH", "EIF K-ij=1ikek-1 

1718 IF W=CH"G"5P. $2B: IN. K 

1720 B=#9802 

1738 IF B?1OK:H=B+B?0;IF EO 0:GOTO 1720 

1748 IF 2E=ÖiP, $7ikeliBet9E02Z 

175@x P.$38,h:GDTO 1580 





17ED 
1778 REM sastre ae bokktabofboakoeaknngn o 
1788 REM * TEKENEN VAN VLAK: DATA UIT XXC JEN YYC J * 





1790 REM #* C WERKT ALS “PLOTFACTOR": S=WITTE LIJN G=INVRT # 
1808 REM messteken eo eene 
1818 

182de REM IN:C = PLOTFACTOR 

1838 MOVECXXI+RUD, CYYI+AWD GF. I= TO CLB20-5I/I +1 

1848 PLOTC, (XXI+KU), CYYI+KWIINEXT 13 RET. 

1858 

1858 REM t*mafstandtke 

1878 REM sopofobsthpentonkeobanpsopankopoopopootneopeke afsnoepen oa 
1850 REM # VAN ALLE VLAKJES WORDT DE AFSTAND TOT “HET ODG"+ 
1898 REM «* BEPAALD. DIE AFSTAND WORDT DAN IN DE DATA VAN * 


1388 REM * VAN HET VLAKIE OPGENDMEN hdd 
13918 REM sattranotadbowapoek ovenkap poten oo ok 
1328 


1930d B=#3802:F. Ie1 TO ?#9EDUIU=DI V=Or Wedi =S (B0-SI/Z 

1348 F‚, J=1TO@GU=U+BIT-AA; VEV? (T+ 1) -KBi WWB? TE) KCH TT SEN. 
135B D= CXLU/D) CAL USD) + CAM-V/ DD CAM /G) + CAN=-W/ GD # CAN-W/ GD 
1968 D=AESSDRD:B?4sD/ 25E; B? I=DA256 

1978 IF B?Z0 2 THEN B?z 
1388 B=B+BIBiN. IS RET. 
199DREM trees i ntt 
20281 FIN. “AZIMUTH"XF, "ELEVATIE"XE, "AFSTAND" XV 

2618 FIN, "NAAR-X" XA, "NAAR-Y" XB, "NAAR-Z" KC 

2028 FIN. “X-CORRECTIE"%L, “Y-CORRECT IE" XW 

2038 IN. "VLAKJES INKLEUREN C(1=JA) "Ri RET. 

2048 REM ®otoroborokotorster me oraape doopten openge apoobzok opkoop ape aaps oen a aa aaan 








2050 REM * ; EN à BEVATTEN DE 3 NAAR 2-DIMENSIE-CONVERSIE * 
20E REM *# DE ROUTINE I5 GESTOLEN UIT ATOMIC THEORY & PRACT. * 
2078 REM » BLZ. 16E T/M 167 * 
2080 REM * XL, XM EN XN iX,Y EN Z-POSITIE VAN "0OG’ WORDEN * 
2099 REM * ECHTER EERST UIT DE AZIMUTHCXF) ‚ELEVATIECKE) * 
2100 REM * EN AFSTAND(%#V) BEREKEND * 
2110 REM * VERDER ZIJN REGEL 115 EN 41@ UIT HET BOEK ONZIN: * 
2120 REM * REGEL 115 KAN VERVALLEN EN REDEL 410 REKENT MET * 
21358 REM * VARIABELEN (XU,%V, XW) DIE NOOIT GEBRUIKT WORDEN!  # 
2148 REM * CAL AV, KI WORDEN DAN OOK VERVANGEN DOOR: @X,%Y, XZ) + 


2155 REM smste sotaotsopoopsopoogeop oto sbrateopnnpaog aak mee oprapen ik me koo anda 
2168 

2I7OREM watinitiatisat iest 

2180: #L=COSCRAD%F) “COSCRADAEN AV KM=SINCRADAF) #CO5 (RADKE) #AV 
2198 KN=SINCRADAE) *AV 3 REMAL SKL KA KM EKM-LB 3 AN=AN- XC 

2200 XSL AL +AMEKM ; KRESORAE 3 AT=ADHANEAN TH KOSSDRAT RET. 

2210REM “tkkperekeni nat 

2220a AXAK-AArAV=AY-KBIAZEAZ KEF AOSCATAK HAL HY EAM AZEN) HAR 
2230 KGACLDOH CAY HAL -AAEAMI HROS AOI +1 LE 

2248 AHA GDB LAZ AAE ANG AIA LY ELMD DAD) +IEF RET. 

5D 
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2EEOREM mbo teobookendenbende raads opbakken ka dn a 
227OREM * HIER WORDT EEN VLAKJE SCHOONGEMAAKT MET ALS HDEK- + 
22BOREM * PUNTEN XXE1, NI: YYTIL.NI had 
LEREN » EERST WORDEN L EN H BEPAALD (LAAGSTE, HOOGSTE PUNT) « 
Z3B2REM # DAN WORDT MET FIGUUR MBV Y VAN ONDER TOT BOVEN * 
231OREM * DOORLOPEN: SNIJPUNTEN VAN HOOGTE Y KOMEN IN SSKJ * 
ZEZBREM reken ach en edentate abe: 
2358 

Z34Ow REM amewipe OUt 

235B XXINAIDEXKEEVVENTID=VYIGKKENEDI XKR YONI DD EVYE 

23EOREM { LAAGSTE EN HODSTE WAARDE BEPALEN } 
23578 H=DiL=I9ITEF. YEl TONE IFVYYSL THEN LaYYY 

2380 IF YYYÒM rHeYYY 











2338 NY 

ZUDDREM ter NU FIGUUR VAN ONDER TOT BOVEN DOORLDPEN ete: 
2410 FOR Y= L TO H 

2420 C=4 

2438 REM C"FLIP-FLOP-KLEUR" „ ZWART DF WIT 

2440 FOR M= f TON 

2458 REM sek: KIJK PER HOEKPUNT ee 

2456 IEEV-YYMDEOP-YY EMS IJDD B DR YYM-YYCM+1D=DIGOTD m 
2478 REM ALS LIJNSTIJKJE XXCMI, YYCMJS XXEM+1 4, YYEM+1A 

2488 REM ONDER SNIJLIJN ZIT, OF HORIZONTAAL LOOPT 

2490 SSM=CY-YVM) HUKKM-KK EME ID) /CYYMYY CMS ID) #A XM GOM=D 
2508 REM SSM=SNIJPUNT VAN LIJN XKEMI, YYEMI: XXCM+1 1, YYCM+IJ 
2510 REM MET DE LIJN Y='Y" 

2520 IF (S5M-XXM)*(SSM-XXUM+1))) 05 GOTO m 

2538 REM SNIJPUNT LIGT NIET IN EERDER VERMELD LIJNSTUK 
2548 IF SBMOXXEM+1) DR YOYYCMr1) THEN BOTD sj 

2558 REM ALS SNIJPUNT GEEN HOEKPUNT IS, GA DAN NAAR 
2560 IE CYYCMHRI YY EMELD DC YYM- YY EMH IDD (BIGDTO m 

25705 GOM=1 REM SNIJPUNT GOEDGEKEURD 


2580n NEXT M 

2530DD S=D;F=39939:F. Met TON: IF GEMe1s IFBSM(=f ; F=S5M; S=M 
2628 N.s1IF SOG: GGE=DPLOTC: (SBE+XU) » CYALWD $C=CH5-E/ 7E 
ZEG U SeAINEXT Y5 RETURN 


leaG. 485 J ACORN NIEUWSJERRUR-HANDLER | M, WAGENAAR 


ERROR - HANDLER 


1SREM ERROR-HANDLER 

2OREM GEEFT BETERE FOUTMELDING 
SOREM M, WAGENAAR 

4ODIMLL SO 

SOF. I=8 TO 2@iLLIe-liN. 

E@P. $21 

7eF.i=@ TO it 

BOP=#ICHO 

LL 

180\START PROGRAMMA OP REGEL 1220 
118: LL4:LDRALLSO/ 25E8AFF ; STARDE 


128 LDASLLIDEKFF :STAKOS 

158 JMP&C2F2\START PROGRAMMA OP (#05) 
14B\HODF DPROGRAMMA 

150:LL7: JSRLLS\KIJK OF CLEARC1-4) AANSTAAT, ZOJA: SCHERM SCHOON 
160 JSREFDSB\"P. $5" 

178 JSR&FFED\ "CR" 

120 PLA 

138 PLA 

208 CMP36 5 BNELLS 

218 JSR4F7D1 

2201:$Pe" CHECKSUM ERROR" sP=P+L, P3E 

238 NOP 

248 JMPLL4 

250:LL8sCMPA295 BNELLS 

258 JSRHF7DL 

27814P="UNKNOWN DR MISSING FUNCTION": P=P+t. P;E 
228 NDP 

298 JMPLL4 

300:LLI; CMPOZi sBNELL IO 

318 JSR#F7D1 

32015 $P="RETURN WITHOUT GOSUB":P=P+L. P5E 
558 NOP 

SB JMPLL4 

350:LL10:CMPAAB: BNELLIt 

360 JSR#F7D1 

3703$P=" COMMAND ERROR"; P=P+L. P5C 

588 NOP 

390 JMPLL4 

&OBELLI1 CMPDI4 ; BNELLIZ 

418 JSR#&F7D1 

46201 $P="MISTAKE" 3 P=P+L, P4C 

438 NOP 

&6D JMPLLá4 

4&SB:LL12:CMPS1 275 BNELLIS 

468 JSR&F7Dt 

4701:$P="LINE NOT FOUND" ;P=P+L. Ps E 

40 NDP 

498 JMPLL4 

SBO: LL13ICMPSISES BNELLIS 

518 JSRHF7D1 

S203;$P="ILLEGAL ASSEMBLER TYPE" ;P=P+L. P3C 
ssp NOP 

548 JMPLL& 


550: LL 15:CMPA157 sBNELLIE 
SED JSR&F7DI 
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5701: $P="LABEL NOT FOUND" sPeP+l. Ps 


B“: 


“3 PaP+L. PC 
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P=P+L. P3C 


sP=Pal. PSL 


8201: $P="NEXT WITHOUT MATCHING FOR" sP=PtL. P3E 


Sen NOP 

598 JMPLL4 

630: LLIEFCMPS1ESHBNELL 17 

618 JSR#F7D1 

E20: $P="LOADING INTERRUPTED" +P=P+l. P3E 
658 NOP 

E48 JMPLL& 
ES5O:LL17:CMPO1 74 BNELLIS 

568 JSR&F7D1 

6701: $P="ITEM MISSING OR MALFORMED" ; 
E88 NOP 

632 JMPLLA4 
700:LLiS:CMPI200: BNELL IS 

718 JSRHF7D1 

7281: $P="UNMATCHED QUOTES IN STRIN 
758 NOP 

740 JMPLL4 
758:LL1S;CMPA208; BNELL2B 

768 JSRHF7Di 
T7DI:$P="ASSEMBLER ERRO 

750 NOP 

730 JMPLLG 

898: LL 2D: CMPOZEOs BNELL2L 

518 JSR#F7D1 

850 NOP 

848 JMPLLA4 
850:LLE1sCMPA2GE:BNELL 22 

860 JSR&F7D1 

870}: $P="MEMORY FULL" sP=Ptt. PE 
520 NOP 

898 JMPLL4 


SUP\SPRING NAAR ERROR HANDLER ALS HET NUMMER NIET VOOR KOMT 
18: LL225 JMPKCIDA 
IZB\ZET BRK-VECTOR NAAR NIEUWE WAARDE 
930:LLGs JSRHFERG 


340 
358 
960 
978 
389 
330 
1208 


CMPA#DD 
BNELL1 
TSX 

LDA#1 0E, X 
CMPIÉTE 
BEGLL2 
LDAA#AD 


1918:LL1;RTS 
1028: LL25LDASHOD 


1050 
1040 
1858 
1062 
1878 
1088 
1898 
1108 
1110 
1128 


STA#130, Y 
LDXD#DS 
STX#2007 
STX#020 1 
STX#0082 
STX#0205 

INX 

STX#200E 
LDROCLL7A25E) 
STA#D202 


1130 LDABCCLL7/2565) EHEF) 
1140 STA#D20E 

1158 JSR&FFED 

1168 JMP#&C2EA 

1178: LLS: PHA 

1189 LDA#B30G 

1198 BE@LL27 

1203 JSRHFDGS 
1218:LL27+PLA: RTS 
1228:LL 50: J 


i23BREM STRING T‚B.V, LIJNNUMMER 
=S EFI? 2IP." "sPePtl.P 
"AT LINE"""jPaP+L, P 
LI&AFFFF" jPaP+l. P 

12702 PBD 5? P+) =HOG 

1289? (P+2) =O; P=P+S 

1290$Pp="P, ' 39=83E. "3 P=P4L. Ps 2P=H0I 
1309? (P+) =FF 3 P=P+2 

1518N. 

1522P. $5 

1530? #20A=LLOL2SE ; !W2DBELLD/ 256 
14E. 
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6847 VIDEO -VARIATIES 


In de tabel van de DETAILED DESCRIPTION OF VDG MODES kunt u een 
overzicht treffen van wat er allemaal mosetijk is met een 6847. Als 
u het ATOM schema ernaast lest dan ziet u waarom de ATOM doet wat 
het doet. Tevens kunnen we zien dat lans niet atie moseltijkheden 
van de 6847 sebruikt worden door de ATOM. In het volsende artikel 
zulien sommige van deze moselijkheden worden bekeken. 








1) SEMIGRAPHICS 4 


De 6847 Video Display Generator (VDG) van onze ATOM bevat naast de 
nu àl sebruikte modes nos een tweetal andere modes nl. ALPHA 
NUMERIC EXTERNAL en SEMIGRAPHICS 4, Deze modes worden bereikt door 
de select pins A/S en INT/EXT te beinvtoeden. Men zou deze twee 
select lijnen hardwarematig met een schakelaar tussen de 
verschiltende modes kunnen schakelen met 8 en 5 volt. Zolans men 
dan A/G (Dit is PA4 van de B255) oP OD volt houdt: dus mode U of 
gewone text mode, kan men Kiezen tussen: 


A/B _INT/EXT 


8 e Alpha numeric internal 
[] 1 Alpha numeric external 
1 8 Semisraphics & 
1 1 Semisraphics 6 


Ais men op deze wijze schakelt tussen de verschiliende modes dan 
kan men inderdaad al deze modes bereiken. Bij de Semisraphics G 
mode zijn dus 8 kleuren setijktijdis op het scherm te verkrijgen 
behalve de achtersrondkleur, en bij semisraphics 6 vier kleuren 
Welke verwisselbaar zijn met vier anderen door middet van de Colour 
Set Select (CSS). Bij de Alpha numeric external moet echter nosal 
wat extra hardware worden bijgemaakt om met name de timine moselijk 
te maken. Door op deze wijze de schakeling hardwarematis uit te 
voeren verliezen We een belangrijke eigenschap van onze ATOM nl. de 
moselijkheid om text en sraphics setijktijdis OP het scherm weer te 
seven. Bij de standaard ATOM zijn A/S en INT/EXT verbonden met D&, 
zodat ais sen scherm Positie wordt sepsokt met een byte waarvan DG 
hoos is dan Schakelt de 6847 over raar semisrashics 6. Het is 
namelijk moselijk om A/S,INT/EXT,CSS en INV op karakter basis te 
veranderen. Daar A/S en INT/EXT beiden verbonden zijn met D6 kan 
semigraphics 4 niet worden bereikt. 

Door de onderstaande hardware Wijziging Uit te voeren kan men door 
middet van een Schakelaar de srafische karakters #40 tot #7F en #C2 
tot #FF veranderen van semisraphics 6 raar semisraphics 4. Men kan 
echter behalve de achtersrond Kleur en de twee normale tekst 
Kleuren "slechts" 4 extra kleuren op het scherm krijsen. De reden 
hiervoor is dat DE de 6847 terus naar tekst mode schakelt als b.v. 
#50 bereikt is. 


int/ext 


Pin 24 IC 31 Pin 31 IC 31 
terus in socket vit socket buisen 


A 8 
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Ais a sesloten is dan blijft de ATOM werken als onze oude 
vertrouwde ATOM, Ais men echter b stuit dan kan men de volsende 
moselijkheden berei ijken. 
A/S CHAR COLOR 
Lx 2 C1 Cl 
1 e X X x btack 
1 1 2 [] buff 
1 1 [] 1 cyan 
ï 1 1 2 magenta 
1 1 1 1 oranse 


De kleuren worden als 
seuiaraphics 4 en 
sraphies worden als volet oPSebouwd. 





volst bepaald 
C1,CB,LS,L4,LF, LZ, LIL 


= C2,C1,C@,LS,L2, Li: LA: 
in semisraphics EG. 


in 
De 


SEMI- 

SEMI- 

GRREICS 6 L3IL2| ererics « 
Deze andere pixel vorm is ook te zien als men seen Kleurenkaart 
heeft. 
2) GEINVERTEERD BEELD 
Zoats al eerder is vermeld heeft de 5847 de moselijkheid om van 
karakter tot karakter de mode control tijmen A/S,;INT/EXT:, CSS en 
INV te veranderen, Met de standaard ATOM is INV verbonden met D7. 
Dit betekent dat de karakters met D7=i seinverteerd worden 
weerseseven. Als echter ook DE 1 is dan zitten we in semisraphics 
made en heeft INV seen effect meer. Ais we INV met U of S vott 
verbinden dan kunnen we alleen tower case ot alleen upper case 


karakters op het scherm Krijger. 
met INV verbindt dan verkrijgt men 
Schakelaar kan 





Ars 
een seinverteerd beeld, 
men tussen de twee Kiezen. 


men echter D7 inverteerd en 
Met een 


De hardware is ais voist? 


inv 


Pin 32 
vit socket buisen 


Pin 4® IC 31 
Terus in socket 
GA 


Met a sestoten 
men zen 
arafi 
Bij 


is het beeld normaal 
seinverteerd beeld. 
che modes. 





Deze schakeling heeft seen effect 


is de 74LSID bovenas IC 9 een 


ICSI 


Pin 4® IC 31 
Terus in socket 


maar met b sesloten verkrijst 


in de 


74LS04 semonteerd. 
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3) FAST LIST 





Bij het printen van een karakter op het Scherm wordt atvorens het 
af te drukken raar de routine #HFEEG sespransen. Hier staat: 


#FEGG BIT#B9OE is bit 7 laas 
#FEES DPLRFEGE sa terus 

#FEER BIT&BOU2 is bit 7 al hoos 
HFEGE BMIKFEER ja terug 

#FE78 RIS klaar 


Bit 7 van de poort C van de 8255 oftewel adres #BDB2 is verbonden 
met FS van de 6847, Dit is de field syrnchronisaticn: Welke laas 


WOTrdt aan het eind van het actieve display sebied. Nadat dus het 
hele scherm is verlaten Wordt de karakter pas afsedrukt. Dit laat 
de ruis verdwijnen maar vertraagt het afdrukken wel. Men zou deze 


routine kunnen weslaten met software: wat dan wel ers vert ruimte 
zou versen. Het is echter Ook mogelijk om bit 7 van de 8255 met eer 
hoos freavent sisnaal te verbinden. Dit kan men halen vit IC 44 
waar de casette ook zijn selvid mee produceert. Het is een sisnaal 
van 2408 Hz en dit is im de praktijk snel senoes om een Soade 
fast-list te seven. De hard-ware is als volat: 


Pin 18 IC 25 
vit socket buisen 








Pin 37 IC 31 Pin S IC aá 
terua in socket terue in socket 
GA ger id 
Verbinden van a geeft de oude trase listinss maar met b verkrijet 
men de tast list moselijkheid 


4) COLOR SET SELECT 


Na de standaardisatie van de printer en interface schakelt insen naar 
bit 2 van de C poort van de 8255 werd het voor Kteurenkaart 
bezitters onmoselijk te kiezen tussen de twee moaelijke Kkieuren 
sets. Het is echter wel leuk om dit te kunnen doen. We kunnen seen 
databits hiervoor meer Sebruiken omdat deze nu al worden sebruikt 
om het karakter te Kiezen en de mode waarin de 6847 zich voor dat 
karakter moet bevinden. CSS kan vp karakter basis de kleur 
veranderen zodat b.v. via een poort en een interuet prosramma 5 
Kkteuren gselijktijdis moselijk zijn. Dit is misschien een teuke 
opsave voor iemand. We hebben echter behalve van de 6522 seen 
poorten beschikbaar zodat hier is sekozen voor sen schakelaar welke 
een van de twee sets kleuren selecteerd. 

De hardware is als volet: Pin 28 IC 31 


uit socket buisen 





A 8 
l+ 
Door het schaketen tussen nb verkrijgt men de Keuze tussen de 


twee sets van vier Kleuren. 
Veel pPpiezier met het uiteroberen van deze SChakei in 








ri. 
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— U na afivop van een erosrammaà welke de assembler van onze atom 
sebruikt kunt testen of er een out of ranse error is opsetreden 
door #EB te peeken.Als daar SS staat is een «OUT OF RANGE error 
opsetreden.Ers handis als u niet steeds de schele assembler listins 
op het scherm wilt zien.Het werkt doordat bij een out of ranse 
error de subroutine #F7D1 wordt aansesproken deze sebruikt #EB en 
#E9 om naar terug te springen als de routine klaar is, 

De text out of ranse bevindt zich vanaf 4FSI4 tot #FS22 zodat 
REB-#23 en #ES-#FS wordt. Een stuk machinetaal ziet er als volst 
uits 





18 F.I=B TO 1 

28 P.SZI:REM SCHERM UIT 

30 P=#2800IREM UIT DE STACKER F.V. HOESEL 
4D IEB=D 

58 

68 .…... HIER UW PROGRAMMA 

781 

88 NEXT I 

30 P,SE:SREM SCHERM AAN 

102 IF 2#E8=35 P. "WARNING OUT OF RANGE ERROR DETECTED"" 
118 END 


= Het is mogenlijk om met het *FLOAD commando 2 files die zich in 
aparte textspaces bevinden in een keer te laden.Stel u Wilt 2 deten 
van het prosramma test en een keer laden. 

De prosramma's bevinden zich van: 

2500 SBFF TEST 

8208 SDFF TEST 


1) *SAVE"TEST" 2909 SD00 

2) rewind de cassette terus totdat #1B90 — #SDFF sepasseert is. 

3) stop de cassette in het stukje setuidsstilte tussen dit blok en 
het laatste, 

4) *SAVE"TEST" 8200 BED 


Men kan TEST nu in een keer laden met *FLORD"TEST". 


- Een wel zeer eenvoudise GRMOD is te verkrijgen als u wel de 
WORDPACK heeft maar seen JOSBOX.Men hoeft slechts het voisende 
basic prosramma te runnen. 


18 Y=3 
20 LINK #ACDE 
30 LINK #AC4B 
48 END 


Ais men een schakelsysteem heeft dan moet deze wel eerst op slot, 


— Ais men een aantal spatie's Wil afdrukken dan kan men sebruik 
maken van een subroutine op #FISA. Deze drukt 1S5-Y spatie's af met 
een minimum van een.Dus Y=5ilink#FA9A seeft 10 spatie's. 


— Men kan de onderste helft van het beeldscherm laten scrotten door 
het volgende uit te voeren: 
Vz KEO LINKKHEFDAG 3 LINKHFELE 
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6502 TRACER 


Het kan vaak erg gemakkelijk zijn als we de Processor op de voet 
kunnen volgen bij het uitvoeren van een machinetaal prosramma. Dank 
zij het hierbij seseven prosramma is dit moselijk. Bij elke stap 
van de processor wordt de inhoud van de resisters, de stack en de 
pointer zichtbaar Ssemaakt samen met de daarbiy behorende 
instructie, Het prosramma moet in RAM worden seplaatst omdat 
tijdens het runnen van het prosramma enkele bytes van het prosranma 
zelf worden veranderd. De manier van Ssebruik is ats volet: 





LEBDERX KKK Dit is het besinadres van het uit te voeren Stuk 
prosramma, 
LINK #5508 Sorins naar het besin van het tracer erosramma. 


Dit kan ratvurtijk ook als statement worden uitsevoerd. Na elke 
Uitsevoerde stao wacht het Proeramma op zen toetsindruk. Als men 
een toets indrukt dan gaat het programma verder, maar bij escape 
keren we terus maar basic. Als men het prosramma als statement in 
2orom wit bakken dan zal men een stukje RAM moeten reserveren vaar 
tijdelijke opstas, Het proaramma verandert de volgende senheusen 
plaatsen in het eisen programma: LLIG-Z,LLIE-i,LLIS LLZS+IL en 


D+#13 tot D+#&l, Deze adressen zullen dus in RAM moeten zitten -_n 
tevens zalt een kleine aanpassins in het prosramma noodzakelijk 
Zijn. 


1BREM ster abbekerk deken 





2BREM # 

ZOREM + tracer * 
GDREM * had 
SOREM » UIT ELEKTUUR * 
BBREM # AANGEPAST VOOR ATOM # 
TREM # DOOR B, KASTEEL * 
BOREM + % 
SOREM settatbokaaboordpd goor kajak geskeokke 


10ODIM LLTB), XXCZA) 

11DF, I=OTOEBILL CI) =- 1 XXC ID =d EN. 

122P. $21 

150F. I=0TO1 

140P=#5500 

Ser 

1EDCLISJSR XX55LDRAHDO: LDYAR2F 
17@:LLOSTAD+HIE, Y; DEY 3 ENELLO 

1BO:LLILDA C,YiJSR XXEs INYsCPYORZEIBNELL 1 

19ALDADRZE ; STAH2OEILDADHSSS STAHZUIIJMP LLS 

200: XXLOSTAD+#LE; PLAS STAD+#283 PLAS PLAS STYD+HICHSTADAHLD 
210TSXsSTXD+#1 4 CLD3CLIGLDYOHDE 

220:LLSLDAD+#1S, YIJSR XX1 

230:XXOJSR XXE: INYsCPYOHDEIECSLLS+EILDAD+HIEIENE LLSIJSR XX2 
24OJSR XX2 

ZEA:LLAJMP XG 
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ZEE: LLSDECD+H1EFCPYARDIE NELLE LDAD+HED; ANDBECF ; STAD+#1 Es LDXAE 
27B:LLEASLD+#1 55 BCC LL? DAAHTI s BNELLS 
288: LL 7LDADEZE 
23D:LLEISR XKIsDEXsHNELLEIJSR XX2ILDAD+#14G ISR XKIGSLDAAR2DIJSR XXS 
SOOTSXICPXBKFF; BCS LLS; PLA:STAD+HIESJSR XX1;CPXORFE 
31GECS LL1S:PLA:PHASJSR XX1 
S20:LL1OLDAD+#1 ES PHA: JSREFESL:CMPO#IBIBNE LU265 JMP&C2CF st LL26 
3SC:LLSLDYAEDOIJSR KKXSILDAHI s JSRKX1GLDAKSDI JSRXXIIJSR KX2 
S4OLDACHIE) , Y;STYLLIE-1;STYLLIEGSTYD+HLAISTYD+HIJI IER KXA 
SSOSTYD+#1ESTYAG STAD+#LE3 DECD+H1E 
SEO:LL11DEY:LDA(#90) , Y5 STALLIE-Z, Y;STAD+H1B, YH TYASBNE LUI 
S7OrLLIEINCKIO: BNELL 12; INCHSL 
SEO:LLIE2DECD+#1E; BNELL 1 33 LDAD+#18; ANDS#OF ; BNELL 195 LDAD+#18 
ZSOCMPIK20: BEU LL20:CHPBH4RS BEG LL21s CMPB#EOF BEG LL22:ANDA1O 
4OGBNE LLZS 
41OrLL1SLDAD+#1E5CMPOHACHBER LLZ4sCMPOHECS BEG LL2S 
428: KKELDXD+HIDELDYD+H1CHLDAD+#203 PHA; LDAD+H1 B: PLP 
GEGENELL iS 
44B: LL 18BRKs BRK 
450: LL20LDA#3Gs PHA; LDAKAI : PHAF JMP LL24 
AED: LLZ1PLA:STAD+#20 
GTE: LLZEPLAISTAHI ; PLASSTARIAS JMP KXX7 
4D: LLZ4LDALL 15-15 STAHID:LDALL LES STAKIL 
490: XX7LDRAIRDAF STALLIE-2IJSR XXBIJMP XXE 
SOB:LL25LDALLIE-1; STAKIO; LDALLISFSTAKSL ;LDYANDDS LDACHID) , Y 
S1STAX: INYsLDACH3O) , Y1STAHIIFTKAISTAHSDIJMP XX7 
S2O:LLZZLDAD+#20; PHASLDAD+#18ISTA LL23+KB: PLPS BNELL173JMPLLEG 
STO:LL17CLI:CLDsLDALLIS-1sBMI LLi6sCLCsADCHSO STAKIBE ECT LLIA 
S4TINCHS1 
SSU:LLIALDAORAZS STALLIE-1; JMP Lt19 
SEU:LLIECLCHADCHSZ: STAHIGIECS LLi4sDECHS1FBCT LL1ú 
570: XKSLDAOREDIJSR XX3 
DES: XXELDADKDAS JSRXX5I RTS 
330: XXIJMPHFSR2 
608: XXALDADHED 
618: XXEJMPRFFFA 
629: XK4LDYORG1 FCMPOHQD: BEU LL1S:CMPO#LOI BEG LL1S 
EZBCMPAHEDI BEG LLIS:LDYDHATSCMPOHZOIBER LL15sANDAHLFsCMPOHLS 
GADBEG LLISGANDO#AFITAXEILDY B, X 
ESO:rLLISSTYD+#21; RTS 
EEDIs C=P 
678$P="E5D2 — TRACER" sPaP+L, P 
680! P=$ZAOD3 P=P+2 
EIBEP="ADR. -INSTR,- :A 1Y sX NVIIDIZC STACK "iPeP+b.P 
7808! P=$DAAD ; P=P+2; BEP 
710! P=01820202 ; PeP+4 

P=t21029202: P=P+4 
#0101020i sP=P+4 
#DIDZUEDE P=P4b 
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VOORRAAD -BEHEER 


Voorraadbeheer is een programma dat mits reseimatia 


volsernde doet: 


“Het seett een overzicht van de voorraad: de prijs er van en het 


aantal. 
*Het 5 
Het proeramma word setaden met 
menu. 





Kies dan voor de eerste keer installeren … of ats de datafite 


aanwezig is LADEN 
Bij het instatie 
tekens). Als se Ss namen zijn 
terug in het menu (dit setd voor 
Hierna de PRIJS invoeren. 

Ats atte artiketien van Prijs Zijm 
in menu. 






van de ärtikelen 
insevoerd Komt men met @ return 
alte routines), 


eerst de namen 


zft vp de te bestellen artikelen en de leverancier ervan. 
return) en komt in het eerste 


voorzien Komt het Pprasramma terys 


Hierna kan men we dezelfde Wijze RAANTAL,MIN.en MAX voorraad 
invoeren. 

MUTEREN 

Het muteren spreekt voor zich zelf bij afname -teken niet vergeten. 
Ais een lijst sewenst is Kiezen via hoofdmenu. 

Het erosramma is insesteld op 109 artikelen vis dit tekort dan X 


reset 89 aanpassen, 


Voor naam leverancier en wmtschrijving eenheid zijn & lettertekens 


aereserveerd. 


LOREM R.V. /T HOFF HAARLEM 
25/03/54 

2OREM JOSBOX NODIG 

SO #EFFF=2 

4D? H2I=0s PRLA=HAD 

509=0;F=D 

607 #FE=#DD 

7UDIMA10, B12,C17,017,NS, P1O, HIA 

8uX=100 

UD IMAAX, BBX: CLX 

1DDREM NAAM/LEVERANC/EENHEID 

11BFDIMXAAX, ABEX, ACCX, XDDX: KEEX 

12DREM #AA=PR,. /EENH-XBB=AANTAL 
—4CC=BEDRAG / ADD=MAX/ AEE=MIN 










150F, 12110 X5DIMD17; AAI= DiN. 
149F. + DIMD7 3 
150F. I=1TO X3DIMDE:CCI= 





152F. I=1T0 Xs %RAI=D: BBI 
XCCI=BI ADD I=BI KEEI=DEN. 

1700N ERROR G. 180 

180P. $ MENU"? * 

190P, “1 INSTALEREN"" 

200P. “2 MUTEREN"” 

219P. "5 LIJST PRINTEN"! 

Z20P. "4 LADEN"' 

230IN. "KIES 1-4 "$A 

$ ‚230 











270IF $A="4"G. E50 

2805. 189 

230P.S12" MENU"? 

SRAP, "B CATALOG"* 

LADEN"" 

S20P, "2 SAVEN"" 

S58P. “5 NAMEN INVOEREN!" 
Z4BP. “4 EENH. PRIJS INV" 
ZS0P, “5 KG/AANTAL INV. *" 
ZEBP. "E MAX VOORRAAD" 
570P. “7 MIN VOORRAAD"" 
352P. "S CONTROLLE LIJST"' 
Z90P. “3 MENU"“* 
GODIN. “KEUZE "$A 
4i9IF 5. 1288 
4&2OIF 
AZDIF 
446 DIF 
4S8IF 
4EBIF 
áTOIF 
48OIF 
49DIF $A="D" GOS. 24E0 
S22IF $A="9"IG. 188 
5106, 292 : 
S2oP. iE” MUTEREN"* * * 
S3OP. "1 MUTATIE NAAM"? 
S4OP. “2 MUTATIE PRIJS'' 









semuteerd het 


inveerrentmax 15 


[VOORRAAD BEHEER | R._V. _T' HOFF 


JACORN NIEUWS PAG. s7 





55OP. "TE MUTATIE AANTAL": 
SEDP, "4 BESTELLIJST"' 

S7BP. "5 MENU" " 
S8BIN. "KIES 1-5 





63OIF $A="5"5G. 188 

5406. 5293 

ESOREM LADEN 

EEBP, $12'" "LADEN VAN DATA*"" 

E70P. "LET OP GEHEUGEN" 
“WORD GEWIST""* 


EBAIN. “NAAM 
ESBE=FIN $B 
700 F=GET E;G=GET EsH=GET € 
710F, I=1 TO F:SGET E‚ ARIIN, 
720F. I=1T0 FsXAAI=FGET EiN. 
730F. I=1T0 FsXBBI=FGET EiN. 


“en 






140F, I=1TO FsXDDI=FGET E3N. 
750F. TO F:XEEI=FGET EN, 
760. TO F;SGET E‚ BBI SN. 
270F. I=1 TO F+SGET E‚ CCIsN. 


788SH, E:+G. 523 

7SOREM SAVEN 

B8OP, 4127 ° "SAVEN VAN DATA" * 1 
SIOP, “LET OP GOEDE NAAM"'*? 

820P. "PLAATS GOK BAEK-UP DISK*'": 
83S0IN. “NAAM "$B 
840F. M=1T02 

85OIF M=ZixD. 1 
SEOE=FOUT $B 
87UPUT E‚FsPUT E, 
S80F. I=1T0 F:SPUT 
890F. I=1T0 F:FPUT 
SO2F. I=1TO FIFPUT 
S12F, I=1T0 F:FPUT 
320F. I=1TD FsFPUT 
93BF. I=iTO F$SPUT 
S4OF, I=1T0 Fi:SPUT 
3SDSH. EN. 

SEO*D. 3 

37BR. 

S80P, "INVOEREN NAMEN “7 

9993=2 
1000P, $12'*"ttFarin os 

1O10IN, "NAAM ART. "$C 
1028 IF LENC)17:P. "TE LANG"" ; 
G. 1918 

1030IF $C="2"5G. 290 

184BIN, "NAAM LEVERANCIER "$H 
19SOIF LENA) 7;P. “TE LANG" ;G. 1848 
10EGF=F+1 
1078$AAF=$C 
1 GEOSBBF=$H 
1230P. F‚ AAF 
11926. 1200 





Gs PUT E‚H 
Er $RAI iN. 
E‚ XRAI EN. 
E‚ XBBI iN. 
E‚ XDDI iN, 
E‚ XEEISN. 
E‚ $BBIs 
E‚ SCCIEN, 





111OREM INVOEREN PRIJSEENH 

1120F, I=1 TO F 

1150P. $1z 

1140P. “PRIJS PER EENHEID"" + 

1158P, SAAI" er 

1150IN. “WELKE EENHEID "$&H 

1178P, SRAI" hi 

1180P. “PER “SH: IN. 

11988CCI=$H 

120DXAAI=VALP 

1210N. 

122086. 298 

1230xREM 

1240%D-Ts Ze 1BOABSLX+D. 51) -ABS 
KXx1385 IFZ) SSP. KX-SONAX", BO" ER 

1250FIF%X{(BDOIFAX)-138 P. $9: 
u.C.)>=5-2iP. "seg 

i260P. £X a IFZ(1O:P. B 

1270P. Z5@=XD;R. 

1280REM CATALOG 

129BIN. "PRINTER J/N "$A 

1580IF $A="J":P. 42 

1510. 

1320P, °°" 

1538LINK #FFES 

1540P. $355. 230 

13SOREM INVOEREN AANTAL 

13EBP. $12" INVOEREN AANTAL"* * 

1570F. I=1TOF 

1580P. $12°"" "HOEVEEL EENHEDEN"? * 

1330P. $AAI" hid 

1480P. "HOEVEEL "$CCIs IN, $P 

141OXBBI=VALP 

142ON. 

14506. 292 

144OREM MAX VOORR. XDD 

145BP. $12" INVOEREN MAXIUM""" 

14E0F, I=1 TOF 

1478P, $12°"" “GROOTSTE VOORRAAD" 
str SAAI”: 

1489P. “HOEVEEL "$CCI:IN. $P 

149DXDDI=VALP 

1502N. 

15186. 290 

152OREM MIN VOORR, XEE 

153OP, $12" INVOEREN MINIUM®"" 

i542F. I=1TOF 

1550P. $127"" "MINIMAAL “"'S&AAI'' rt 

1SEOP, “HOEVEEL "SCCIs IN. $P 

157O%EEI=VALP 

1580N. 

1590G, 292 

160DREM LIJST 

1ELBIN, “PRINTER J/N "$A 

1622IF $A="J";P.$2 

1EZOP. * 

1E40GOS. r 

1650F. Y=1TD1A5P. * 


“sp 





EES: AR 


EM. 3 





aNGAM 
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18EDP, ” EENH. BOJ=1E-LENAAI;F. K=BTOJ SP. ", “iN 
PRIJS AANTAL TOTAAL" "5jgaAK= ADD I-KEBI ; GOS. x 
1578GDS. | 





OCE TKK AAT 
1E8GF, I=t TD F gP. “$CCIs J= 


1590P. " 55=E 


S-LENCCI: 











+a=3 en F.Y=1TDJGP. "WN, 
1700P. 1 +8=E;P, SAAI EZLDAX=KAALS GOS. x3 KX=KCCI: 
17181=15-LENAAIGF, K=DTOJGP, ", "EN. GOS. « 
172DP, * “SECI : on eEEI 

F‚ Y=1TOJSP. ';F. I=1TDZ8sP, * HEN 





1730AX=KAAIt 605. verte BBI: GOS. x 
174OACCI=KRAI#ABBI 3 GOS. x 


sE, I=1TO3ZiP, "— 
ZEBF. I=ATOF sACEXCHACT IN. 














1750N. 5P.' sF. 1=iTOZBIP. " “iN. 2270P." tF. 1=1TO205P, * "iN 
17E8C=0F, ZZEBP. "TOTAAL "zeKexC; GOS. x 
1778F. I=1TDF + 4C HCHICCTEN. 5290P. "85 

1780P.';F. I=1TOZBEP. " "iN, SEOUL INK #FFEZ 

1788P. "TOTAAL "fX=kCHGOS. x 55106. 180 

1802P. '* 


BP. $12" “MUTEREN"? 
1810LINK #FEEZ E30GOS. 

1820P, ’$5;6. 188 234DP. “DENK OM — TEKEN BIJ 
1EEDREM NAMEN VERANDEREN ENAME "> 









1840P, $12° VNAMEN VERANDEREN"? "? Ss5pIN, “WELK NUMMER WILT U MUTEREN 

1850IN. “WELKE NAAM "&N:D=VAL SN wENSOEVAL EN54=0 

1850IFEN="D" 55, 520 2EE0IF $N="0" 50.520 

1872P. SAAD’ * NIEUWE NAAM"zIN.$C 53770P. "ER IS IN VOORRRGD"' 5 

1880 IF LEND)175P. "TE LANG"; KKEKHEDEGDS. KIP ECCO" 
G, 1870 Z38UP. SAAD” “HOEVEEL "$CCD * "5 

189BIN. “NAAM LEVERANCIER "&H EIN. XP 

1997+AAD=SC Z590XBBO=(KERD+4P) 

1B108BBOS8H 4DDP. “NIEUWE VOORRAAD 15°’ 4 

19201F $C="D"iD. 520 HX=KBEDS GOS. XIP. “ECCO 


13505. 1838 Z41DLINK HEFES 
1S4OREN PRIJZEN VERANDEREN Ee EDG 252 








1950P. #12" "PRIJZEN VERANDEREN""** Sazgp. $12°CONTROLLE LIJST" 
1858GDS.m Z44BIN. “PRINTER J/N “SA 

197BIN. "WELKE NAAM “&NsD=VAL EN 245gIF $A="J"5 

1SBBIFEN="0";0. 520 P. 427 VEONTROLLELIJST"* 
1230P, "SAAD Z4EUF. Y=ITDA1 EP." MEN 

200UP. “OUDE PRIJS 18 "s8=0; Z4TOP! “AANW. Max; MIN. 


AX=KAADIGDE. x5P. “PER "SCCO'' 5400608. 
2010P." "NIEUWE PRIJS PER "$CCO: 2439, Ist TO FIP.” ; 
FIN. XP S50oP. 1 #5 P.SAAIT « 


2O2UHAAD=AP 2510J= 15- —-LENGAIsF. K=@TOJIP. *. “iN. 
20EDFIFAP=0iG. 1340 “SCCIaT 














BOSOREN BESTELLEN Lo: 

2 " N 25E0AX=KBBI GOS. x3 ; 

ZREDIN. “PRINTER J/N "&A AK-KEEI GOS. Ki N. 

20701F $A="J"IP.$2 2540P. "1783 

zesop,” „SB ZESDLINK HEFESIR. 

2030. YSLTD285P, ! TEN. 25601 F. Y=1T078P SP ER. 

2100P. "AANTAL 257mF. Y=1T020:P. * IPR 
PRIJS TOTAAL LEV" Ssepe 

2110F. Y=1TD7EIP, ta" iN, 3P. 


z1i20r. i=1 TO F 
2150A=ABBI s #B=4EEI 
ZI4UFIF B) 4A:G. 2150 
2159%CCI DiN, ;P,’ +6. 2250 
ZIEUP,” 
DATFAP. 1" 






COLOR SCREENDUNP | ZIELEMAN EN VAN DE RIET P 


COLOR -SCREENDUMP 





18 REM hadndikncdndhaddi dadadada hasta ahah a haat uch a Sd SE 
28 REM sk ACORN ATOM CLEAR & COLOR-SCREENDUMP # 
38 REM otd aaan opzoog eaf hen aka: 
4@ REM 


58 REM PROGRAMMA VOOR DE TANDY CGP-115 PLOTTER/PRINTER 

5@ REM V1.1 — BASIC 

70 REM Auteurs G.Zieteman en H.J.van de Riet 

88 REM 

3B P,$2142815: REM SCHERMUITVOER AF, PRINTER NAAR BEGIN REGEL 

108 P.S1S: REM PRINTER OMSCHAKELEN NAAR GRAFISCHE MODE 

110 P‚"I“'; REM STEL DE OORSPRONG IN 

120 P,“CB'"+ REM KIES KLEUR B = ZWART 

158 P, “D3E5, 0, E85, -193,0, -193, 0, D""s REM TEKEN HET KADER 

140 X=@iV=DiA=Ei REM QA IS DE WAARDE VOOR X OPHOGING 

158 REM 

182 FOR C=t TO 25 REM 3 KLEUREN AFWERKEN, ACHTERGRONDKLEUR CC=8) 
NIET GEBRUIKEN 

“E“C’ ; REM TERUG NAAR DE DORSPRONG EN KLEURKEUZE 






200 





220 
230 
240 
250 IF S%52=0;X=0iY=Y-it REM NAAR DE VOLGENDE BEELDL IJN 
260 P=9S/G4&SGIFP=C GOS, a 





FOR S=#8008 TO #97FF 





278 X=X+A 

280 P=?5/168&5;IFP=C GOS. a 
230 XeXtA 

SY P=?S/4&IIIFP=C GOS. a 
310 XeX+A 

520 P=958&5I IFP=C GOS.a 
258 X=X+rA 

340 NEXT S 

350 REM = 
ZE® REM 
270 NEXT C 

580 P.“M"Z","-238' ; REM RUIMTE MAKEN 

530 P‚"A"'; REM PRINTER TERUG NAAR TEKST MODE 

400 REM EN INSTELLEN OORSPRONG OP LINKER KANTLIJN 
á1B P_$5: REM PRINTER AFSCHAKELEN 

420 P.$EE12: REM SCHERMUITVOER WEER AAN, SCHERM WISSEN 
428 END 
448 REM 
458 REM= 
460 RE 
470 RE 
48Da P. 
430 RETURN 
509 REM 











Sersesrssensenterenm=nne: 


SUBR, VERPLAATSEN PRINTKOP EN LIJN TREKKEN, LENGTE=A 


mansansmennmansan 
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TEK-PLOT 


Een prosramma voor de rn Atom waarmee =lektronische schema's op 
een eenvoudise manier te tekenen Zijm. 








ec. 1984 
Hans Schwirtz 


INLEIDING. 

Dit prosramma beonot het versenvoudisen var het tekenen var 
elektronische schema's. 

Dit is serealtiseerd duor het kreeren van een Tieuwe beschrijving 
van het te tekenen schema: bijna als een nieuwe comsutertaal. 

Dit heeft als sroot voordeel, dat de prosrammeur zich miet meer 
bezig hoeft te houden met boekhoudkundise problemen, zoals de 
opbouw van „en component of de orientatie daarvan in zijn schema. 

In plaats daarvan hoeft de prosrammeur in TEKPLOT atleen een of 
Twee punten ap te Sever: waartussen het programma het gewenste 
etement zet, ongeacht de richting 





Een van de srootste voordelen van TEKPLOT is misschien welt de 
overzichtelijkheid van een TEKPLOT-fi le. 

Door een zeer ver doorgevoerde strukturele opzet is een eventuele 
tout zeer snel sevonden en verbeterd. 


TEKPLOT bestaat vit? 


TEKP.P : startadres-#2300 

eindadres-#46EE 

exerutieadres-#CESE 
Dit is het noofdPprosramma met de modellen-bibtiotheek en het 
Kkontrele-prosramma. 


TEKP.T # startadres-#1D80 

eindadres-#iFFF 
Dit is „en tabel; waarin de kKarakterset staat van het 
TEXT-kommando. 


TEST: 3 wordt door TEK P,P inseiader. 


TEST2 : wordt door TEK P.P inseladen. 
Dit zijn twee voobeelden van TEKPLOT, 





In dit proeramma is sebruik semaakt van twee Kommando's, die NIET 
standaard in de Atom en de P-charme zitten. Nameiijk het Kommando 
CIRCLE en GRCOPY. Het eerste Kommando tekent een cirkel en heeft in 
G.N. nr. & van 1984 sestaan. Het tweede Kommando GREOPY maakt een 
dume van het beeldscherm naar de printer: sebruikmakend van een 
B-bits interface. Deze routine sestaat in dit nummer, Soorteelijke 
kommarndo's, die de programmeur eventusel zelf in zijn eisen 
Komputer semaakt heeft, kunnen voor deze Kommando's in de plaats 
gezet worden. Lees Wel eerst het hoofdstuk UITBREIDEN VAN TEKPLOT 
daor! 
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BESCHRIJVING TEKPLOT SYNTAX, 





De alarmene syntax voor de elementen ist 
CELEMENT : XB, YOE, X1, YLED > 


Hieronder volst een omschrijving van alle Kommando's: die in 
TEKPLOT mosetiik zijn. 


WIRECXO, VD, X1, Y1D 

Door dit konmando te seven wordt een lijn (draad) setrokken van 
punt (X8,YO) naar punt (K1,YI), Deze punten mosen in elke positie 
ten opzichte van elkaar Tissen. 


RESISCX@: YB: Xt, Y1D 

Dit Kommando tekent een weerstand tussen de punten (X8,Y8) en 
XI, YI). De weerstand woordt altijd secentreerd tussen het besin- 
en eindpunt en heeft vaste afmetingen (1IS%*5). Ook hier mosen de 
beain- en eindpunten Willekeurig georienteerd zijn ten opzichte van 
elkaar. 


CAPCXB, VA, X1, YI 

Hiermee is een capaciteit te tekenen tussen de ocunten (X@,YD) en 
CXI, YI), De capaciteit wordt secentreerd tussen deze punten: die 
ook hier willekeuris seplaatst mosen worden. De afmetinsen van de 
capaciteit zijn Z#5, 


ELCOCXS, YB, X1, YI) 

Dit kommando tekent een elektrolythische condensator tussen punt 
CU YD) en (Ki, Y1). De nesatieve kant van de elco tiet altijd aan 
de kant van (X8,YD)., Dok deze punten mosen overal tissen. De 
afmetinsen van de elco zijn 3e9, De eico Wordt altijd secentreerd 
tussen de beide punten. 


INDUC(XB, YO, X1, Vid 

Met dit kommando kan een spoel setekend worden tussen de punten 
XB YD) en (XL,Y1). List het ount (K@YD ‘inks van het punt 
EKI,Y1) dan tissen de rondingen van de spoel naar boven. Door 
verwisseling van het besin= en eindpunt is net moseltijk de spoet de 
andere kant oe te laten Wijzen. Dit is voorat van beltans bis 
transformatoren e.d... Dek git element wordt secentreerd tussen de 
beide punten: die willekeuris ten opzichte van etkaar mosen |iesen. 
De afmetinsen zijn 163 


ARROWCXD, YB, X1, VLD 

Dit Kommando tekent wen pijl tussen de punten (XO,YO) en (X1: YI), 
De pijl wordt altijd aan de kant van punt (KO, YU) setekend. De aijl 
mas =tke Orientatie hebben. 


NPNCXO, YB) 

Door dit kommando is een NPN-bipolaire-junktie transistor te 
tekenen. De orientatie is Standaard naar rechts met de emitter naar 
beneden Wijzend. Doer voor de K-koordinaat een minus-teken te 
plaatsen is het mosslijk de transistor Om de r-as te saieseten. De 
basis blijft echter in het Punt (X@,YO) lissen. De atfmetins van de 
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transistor is 949, zedat de emitter oP het punt (X0+18, YO-5) 
CXE-10, YO-S? liet, alt raar seians de prientatie van de transistor. 
De kollektor fiat op punt (XO+10:YOH5) of CXE-1D, YD+5), 








PNP (XO, YO) 

Dit kommando tekent een PNP-bipotaire=junktie transistor met de 
emitter aan de bovenkant. Dok dit „tement Kan sespieseld WOrden mm 
de Y-as duor een minus-teken voor de X-KCOrdi naat Te zetten. De 
afmetingen zijn selijk aan die van de NPN-transister: zodat de 
emitter op met punt (X0+19,Y0+5) of (KO-10,YD+5) list en de 
ottector ce punt (X@+10, YA-S) of (XO-10, YO-5). 








NFETCXO: YB) 


Met dit Kommando is het moselijk een N-karaats junktie FET 
Cveld-etfekt transistor) te tekenen. De syntax is het zelfde ats 
bij de NPN- en PNP-transistor: zodat door een minus-teken voor de 


K=koordinaat het element sespiesetd wordt ten ppzichte van de y-as 
De sate zit altijd aan punt (X0,YD), terwijt de source altijd aan 
de onderkant List op punt (XO+18, YZ-S) of (XO-10,YO-5). De drain 
list oe punt (XB+10,YO+5) of (XO-10,: YA+5) . 


PFETCX@: Y83 

Net zoals bij NFET tekent dit kemmando een P-kanaais junktie FET: 
met de source aan de bovenkant. Ook dit (etement kan sespieseld 
worden door een minus-teken vo de x-koordinaat. De source zit op 
punt (X0+18YD+5) of CKB-10-YB+5) en de drain zit op punt 
CKA-1D: YDF) of CXO-10, YOT), 





NMOS XO, YB) 


Bij het  tesenkomen van dit Kkommande tekent  TERPLOT men 
N-karnaals-metal=oKide-silicon transistaer met de sate aan Punt 
(XB YO), De source Hist altijd aan de onderkant: wel ts =chter de 
richtings van het element te wijzigen: door een minus-teken vaar d 





X-koordinaat te zetten. Standaard lìissen de source Pen de drain 
rechts van de sate. De koordinaten van de Saur: zijn D+12, YO-5) 
of (KB-12,YBD-5). De Koordinaten van de drain liessen oe (XB+12, YB+S) 
ot (KO-1E: YO+5). 








PMOS CX: YO 
Geheel analoos aan het Kommando NMOS tekent dit Kommando een 


P-kanaa!s-metal=oxide-sili on transistar met de aate aan pPUGt 
{Xa YD). De source list altijd aan de bovenkant rechts van de sate, 
indien de x-koordinaat positief is en Jinks indien er een 

minus-teken voor de x-kOOrdinaat staat. De source list op punt 


(KB+12, O+S) Of (XE-1E,YOHE) en de drain tiet op punt KUrle,YD-5) 
of (XB-12, YD-5). 


DIODEEXB.: VO, Ki, YEN 

Dit kommando tekent een Junktie diade van punt [XO YO) naar punt 
CXi, YI) met de kathode altijd naar punt (XU,YD) wijzend, De diode 
wordt altijd gecentreerd en mas etke orientatie hebben. De 
afmetinsen zijn 7#9, 





ZENER(XO, YO, X1, YI 
Met dit Kommando is het moselijk een zenerdiode te tekenen van PUNT 
(YA YD) raar Ppuat CX1,Yi). De "r met afmetingen 9#39 wordt altijd 





[TEK-PLOT | _HANS SCHWIRTZ J ACORN NIEUWS[PAG. 62] 


gecentreerd en neett de kathode altijd aan de kant van punt 
\X0,YD) tissen. Dit element kan over iedere hoek seroteerd warden. 





VAREXO, YB, Xi: VLD 

Door dit Kommando te seven wordt een varicap digde setekent tussen 
de punten (XO,YD,X1,Y1) met de kathode altijd naar punt (XD, YB) 
wijzend, Het etemernt wordt attijd secentreerd en heeft ge 
afmetingen 949. De besin- en eindeunten mosen Witlekeuris ten 
opzichte van elkaar liegen. 


VBRONC XE, YO, X1, YI) 

VBRON tekent een spanninssbron secentreerd tussen de punten (XO, Y@) 
en {X1,Y1): die witlekeuris ten Opzichte van elkaar seorienteerd 
mosen zijn. De afmetingen zijn 1212, 


IBRONCXG, YB: X1. YI) 

Dit kommando tekent en stroombron: met afmetingen 12*12, die 
gecentreerd wordt tussen besinpunt (X@0:Y@) en eindpunt (XI, YE). De 
stroombron kan in elke richting sedraaid worden. 


MASSACX@, YO) 
Dit kommardo seeft een massaraanduvidins aan punt CX@,YO) met 
afmetingen 9+9, De orientatie is altijd waar onderen. 


POSCXB, YO) 
Door dit Kommando te seven wordt een plus-teken setekend met 
afmetinsen 5*5, met centrum (XO, YO), 


NEGCX@, YO) 
Dit Kommando tekent een minusTteken met afmetingen S#i en centrum 
CB. VD. 


RECTCXB, YA, Xi, YI 

Door dit Kommando is het Mostlijk zen rechthoek te tekenen. Punt 
(XB, VO) is het linksonder Seleser hoekpunt van de rechthoek. Punt 
CKI: YI) is het rechtsboven selesen hoekpunt. 


TRICXO, YO, X1, YA 

Indien TEKPLOT dit Kommando tesenkomt wordt er een selijkbeniee 
driehoek setek@hd: die over elke hoek seroteerd kan worden. De lijn 
tuss: de punten (XO,YO) en (KXl,Y1) vormt de basis van de driehoek, 
De hoeste is &ltijd selijk aan de lenste van ae basis. Liet eunt 
(XO YO) onder Punt (X1,YÍ), dâän wordt de driehoek naar rechts 
setekerd. 





KNOT CX. YO) 
Dit kommando tekent &n knooepunt GPe punt (XO, YO), 


OFFSET CX, VÒ 

Dit kommanda geeft de mogelijkheid om een bepaalde oftset: zowel in 
de x-richtins al& in de y-richting, mee te seven. Alle Kommando’ s 
die na dit Kommando voltsen worden met die offset setekent. Ook is 
het mogelijk nesatieve offset te seven. 


TERKEKD 
Dit Kemmanda maakt een hardcoey van de tekenins OPB de erinter. Met 
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X is het moeetijk een bepaalde offset (tabulatie) op papier te 
seven. De maximale mffset is #7F, De printer print standaard in 
normal -mod Condensed-mode is moaetijk door X sroter dan #7F te 





maken. Indien X setijk is aan #80 zal de tekening in condensed-mode 
aeprint worden met effset nul. 


TEXT CX@, YO) 
Ook is het mosetijk in TEKPLOT om tekst in de tekenins te zetten. 
Hiervoor is een speciale karakter-set ontworpen: die een aantal 


wetenschappelijke tekens kent, Door proportioneel printen wordt 
altijd minimaie ruimte sebrygikt: terwijl de (teesbaarheid Konstant 
blijft. TEXT drukt zen tekst af‚ waarbij het punt (XB:YD) het 
midden van de linkerkant van de eerste karakter is, De maximate 
hooete van een karakter is 7: de maximate breedte is ook 7, De text 
moet eerst in een strins sezet Worden: Waarbìj de variabele S de 
strins-epinter is. Een tekst opdracht kan er dus als volst uitzien: 


18552 $5="Dit is een tekst! ';TEXTC108, SO) 


Door deze Syntax is het dus moset ijk dezelfde tekst >p 
verschitlende plaatsen in de tekening te zetten. 


Een extra feature van TEXT is: dat sub-script Cindices) en 
super=-script (kwadraten) mogelijk is. Een karakter wat voorafsesaan 
wordt door een \ (backstash) wardt 4 eenheden laser setekend. Een 
karakter wat voorafsesaan wordt door een DN Cinverse backstash) 
wordt 4 eenheden hoser setekend, 

De kKarakter-set is zoveel moselijk dezelfde als die van de 
standaard Acorn Atam. Alteen de afwijkinsen zijn hieronder 
aangegeven. 

“_= ohm 

& = micra 

araden 
oneindia 
siama (sommat 
= beta 

bestaat niet 
nadert raar Cpijl naar rechts) 
= Phi 

Dbestaat niet 

tr = flux Co) 

CONTROLE PROGRAMMA TEKPLOT. 











OE Bed 


Start het prosramma door in te tikken: 


*LOAD TEKP.T 1D00 
“TEKP. P 


Na eniee osenbtikken verschijnt het menu op het beeldscherm. Er 
zijn drie moselijkheden: 
1. New file 

Deze optie biedt de prosrammeur de mossiijkheid een nieuwe 
TEKPLOT-fi te te maken en te editen. Hiervoor is het het handiest om 
vanaf #2908 af te prosrammeren besinnend met resetnummer 10000, 
Door deze hoge reselnummers ziet de prosrammeur meteen dat hij met 
zen TEKPLOT-fi te te maken heeft. Het Kontrolle prosramma zet de 


[TEK -PLOT [ HANS SCHWIRTZ a __L ACORN NIEUWS }PAG. 65 | 
benadisde kommanda's al oP het beeldscherm zodat deze met behulp 
van de cupy-toets eenvoudis uitsevoerd Kunnen worden. VERGEET NIET 
DE FILE EERST TE SAVEN, ALVORENS MEN HET TEKPLOT- PROGRAMMA OPNIEUW 
LAAD. Alle moeite is dan voor niets Sewwest, daar TEKPLDT de fitte 
overschrijft! Er is onseveer 1äKbyte over voor een file. 





2, Load file 
De raam van de file wordt sevraasd en na enkele osenblikken 
verwerkt. Na afloop is TEKPLOT oPnieuw te sebruiken door RUN in te 
traen. 


5. Run fite 
Deze optie runt een eventueel aanwezise file, Indien seen fite 
ganwezis Keert het Kontroie prosramma Tetrus naar het menu 


TEKPLOT FILE, 


Voordat een element door midde: van een TEKPLOT kommando 
aanseroepen wordt, moet een CLEARA seseven worden. De fite moet 
afgesloten zijn met een END of een GOTO 5000. In het laatste sevat 
springt men terus naar het Kkontrote proeramma. 

Een file bestaat dus uit een rij Kommando's, waaruit direkt de 
„tementen en de Koordinaten te halen zijne wat de 
uverzichtelijkheid era bevordert en het wijzisen ers eenvaudis 
maakt. 

Üok is het moselijk sewone BRSIC Kommando's, zoais b.v. FOR NEXT 
toocps: DO UNTIL toops, in de file te zetten. De TEKPLOT kommando's 
Zijm eigelijk sewoon BASIC uvitbreidinsen. 


UITBREIDING TEKPLOT. 


Dit prosramma pretendeert seenzins volledie te zijn, wat betreft de 
etektronische Komponenten. Dok is dit konsept te sebruiken voor 
tekenprogramma’ 5 in andere dissielines, zoals construkties 
balken,erofielen,enz.), chemie (processen,enz.), 


Indien men het erosramma wijzist, dient men echter ook het kontrole 
Pprosramma iets te wiizisen. 

De variavele E in reset SODS moet altijd de waarde TOP bevatten van 
TEKP.P., Dok resel SOEG dient aangepast te worden. Hierin moeten de 
ASCII-waarden van TOP minus 2 komen (#20 is de ASCII-waarde voor 
zen spatie), 


Voor het maken van extra Kommando's zijn twee procedures van 
betans, 

1, ANGLE 

Deze procedure berekent de hoek waaronder het element setekerd moet 
worden. Bii het vitkomen van deze procedure staat in XA de sinus 
van de hoek die het ziement met de x-as maakt. In XB staat de 
costnus van die hoek, Het mideleunt van het element staat in XX en 
%Y. 

2. START 
Deze procêdure tekent voor de diverse transistoren de basis- of 
sate-aansluiting, Bij het uitkomen van deze procedure staat in N en 
O0 de koordinaten van het midden van de basis- ot sate-tijn. In M 
staat de richtirns van de transistor. 
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5 PEDRO: OREERTF Gr PHLIZOS PHEGRTE 
6 

18 PROGRAM MODELS, LIE 

2ö 


38 PROC WIRECA, B, C: D) 
4&O MOVE (A+U, CE+V) SDRAW EC+HUI» (D+V) 
50 PEND 


70 PROC ANGLE 

88 KAKELAHCI/ EU KY CBHD / ZV 
38 IF C-A=Ö AND DB: 
95 IF C-A=8 AND DCB: 
188 xM=CD-B/ CCA) AN: 
118 IF C(AFYA=- LA AR=- AK 
111 PEND 





A=15 9:G. 110 
A: 








ak Sd 





DG, 110 





11E PROC RESISCA: B, Cs D), XA; B, XM, ÉN, AX, KY 
114 ANGLE 

115  AKENKHDKAT HLB ANY EAB 7 KA 
IED  KHM=AXr IAB ONLY + LNA 

158 MOVE XX, XY3DRAW ZM, AN 

148 AXAM- TLD AYE AN EAD 

159 DRAW XX, XV 

158 DRAW CC+U), CD+V) 

178 MOVE #X, AV sr AMEAX- DRAA AN=AY + IKB 
188 DRAW XM, XN 

199 AKAM-LLHLBT AVAN LALA 

208 DRAW XX: XY 

Zie AMEAKHEEKAF AN=HY TAB 

E28 DRAW XM: ZN 

238 DRAW CAHU), CB+V) 

24B MDVE XM, AN AX=AMTANA 3 HY SAN- IAB 
258 DRAW AX: LY 








zE@ PEND 

27u 

288 PROC CAPCA,B: Cr D) + XA, AB, AM, XN, AX, KY 
298 ANGLE 

SES AKAX+ ZA Brant 2e 
338 KAM=ÁX-IKKAIAN=AYHERKBIMOVE XXe KV 





E48 DRAW XM, XN 

358 DRAW CTH, CD+VD 

3EB MOVE XM, XN 5 AXehM EAA 3 AY=AN+ ERLE 
378 DRAW #X,xY 

SBB AM=AX- DAB AN=AY 2D 

338 MOVE XM, XN 

408 HXAMHEKNAT AY=AN- ZELE 

418 DRAW XX, Y 

428 DRAW CAHU, CBV) 

438 MOVE HX, HY s AM=A K+ ENKA ANY IAR 
4&B DRAW XM, *N 

450 PEND 

4560 

478 PROC ELCOCA,-B, C‚ D) » XA, AB, AM, AN, HX, HY 
458 ANGLE 

SIS AKAXHENAAH EAB AV ENY -AHABt Der 
52 AMA K ENKA ANTALYA Er AES MOVE %X, HY 
528 DRAW XM, xN 

S46O DRAW CC+HUI, CD4AV) 











TNCHMD 3 ARESINCAND $ KB=COS OAN) 
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550 
560 
578 
588 
590 
E28 
618 
E20 
E30 
64B 
650 
568 
678 
688 
€ 
788 
718 
728 
738 
748 
745 
747 
748 
743 
758 
7E8 
778 
780 
738 
Bae 
810 
820 
828 
240 
558 
850 
878 
E80 
828 
309 
910 
20 
233 
378 
980 
990 
1800 
1610 
1828 
1820 
1048 
1058 
1859 
1070 
1080 
1148 
1158 
1160 


MOVE XM, ANS KKEKM- Zes KYEAN+ ZELE 
DRAW XX, xv 

KMERK 25 AN=ELY +20 AB 

MOVE XM, XN 

HXAM-DEKB it KYZAN- LEK 

DRAW XX, %Y 

MERX +LHKAS AN=KY Aw B 

DRAW XM, XN 

DRAW (A+UI, CB+V) 

MOVE XM, XN3 KX=AMHLEAAF LY=IN- GKB 
DRAW XX, %Y 

KMEKK+2ILB; AN=KY+2RLA 

DRAW XM, XN 

PEND 


PROC START 

M=isIF AB; Az-AiMe-i 
A=A+U:B=B+V;MOVE A, B 
KaAtrMe4 3 Y=BiN=Xj Dev 

DRAW XY 

PEND 


PROC NPNCA,B),M,N: 0, X, Y 
START 
B=X+Meb si Bey 
DRAW A, B 
XaA-M*2tY=B 
DRAW X, YsMDVE A,B 
X=As Y=B+2 
DRAW XY 
MOVE ND 
BaN+Meb 3 B=Dt4 
DRAW A, B 
MOVE N,0 
XeN: Y=0-4 
DRAW XY 
MOVE N,0 
XaeNi Y=0+4 
DRAW X, Y 

PEND 


PROC PNPCA, B), M.N, D, Xo Y 
START 
A=X+Mebs Bed 
DRAW A, B 
MOVE N,0 
A=N+M#4 ; B=0t+4 
DRAW A: B 
X=A-M*Z3 Y=B 
MOVE X, Y 
A=XiB=Y-e 
DRAW A, B 
KAMEL VB 
DRAW X, Y 
G. 840 

PEND 


PROC VERONCA: BC. DD. XX, XY 


L ACORN NIEUWS [PRG. 67 
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117B KCA EAU AVCHD) /Z4V 
1188 CIRCLE XX, %Y,E, 15 
11398 MOVE CA+UI, CBV) 5DRAN (CHU): (D+V) 
1288 PEND 

12108 

1228 PROC IBRONCA, B‚C, D) , XA, XB, XM, AN, AX, KY 
1238 ANDLE 

1249 CIRCLE £X,%Y,E, 1E 

1275 KM=AXHTHAN IE ANEKY TAB 

1288 MOVE XM, XN 

1295 X*M=XM- 11% As AN=IN+1 LAB 

1388 DRAW XM, XN 

IES KAM=KK+TKAB tE AN=LY HEKLA 

1528 MOVE xM, XN 

1338 DRAW CE+HU), CD+V) 

1348  XM=AX- SKB ANTLV SA 

135B MOVE %M, XN 

1EE@ DRAW CAT), CB-V) 

1578 PEND 

1388 

159@ PROC DIODEER, B, EC, D), XA, AB, XM, AN» KX, KY 
1488 ANGLE 

1435  KM=AX-DKKD ANH DAA 

1468 MOVE #M, XN 

1458 DRAW (A+), CB+V) 

1468 MDVE #M, XM AK=AMH GAAT AYZAN- GRB 
1478 DRAW XX, %Y5MOVE XM, XN 

I&EB HKM LAFAY=AN+ GLB 

1498 DRAW AX, HY sAM=AMHL =ÁN+XA MOVE %M, XN 
1508 AXTAMHLEABH AAA AYE ANH LET dor B 

1518 DRAW #X:XY:MOVE XM, AN 

1528 AXATAM+ ALBLAS AYZANH LAD GHB 

1558 DRAW XX, XY 

1540 KM=AX+ABIAN=KY+KAF MOVE XM, AN 

1550 AXeAMAELA FAY AN- Ae 

1558 DRAW #X,%Y 

1578 DRAW CHU), (D+V) 

1588 MOVE AX, HY AMEAK +k AN LY Lek HB 
1590 DRAW XM, XN 

1508 PEND 

1518 

1628 PROC RECTCA, B, C, D) 

1625 _AzA+UiC=C+iB=BtVs D=DtV 

1638 MOVE A,B 

1548 DRAW C,BSDRAW C,D: DRAW A, D:DRAW A, B 
1658 PEND 

1568 

1578 PROC TRICA:B,C, D) ‚ XA, XB: XM, AN: AX, XV 
1675 A=A+UC=C+Ui B=Bt Vi D=D+V 

1680 3xB=05G. 1718 
1698 IF D-B=D AND A(CtAA=-1:KB=DIG. 1710 
1708 XM=CA-C) /CD-B) SANZATNCHM) : KAZSINCKAN) 5 LB=COS OAN) 
1718 IF DB: %A=-%AsAB=- AB 

1715 MOVE A,B+DRAW C,D 

1728 KM=CC-A) CTA) +(D-B) * CD-B) $ AN=SOR (KMI 
i730 A+C/23AY=CB+D) /2 

1768  NKAKANELBE LY=AV ANSA 

1758 DRAWN YX: %YIDRAW A, B 
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17608 
1770 
1780 
1785 
1798 
1890 
1818 
1820 
1838 
1880 
1890 
1300 
1910 
1320 
1950 
1335 
1348 
1958 
1960 
2108 
2118 
2120 
2150 
2168 
2170 
z180 
2198 
2200 
zeta 
z228 
2230 
2255 
2240 
2250 
z2E8 
22708 
2288 
22308 
2300 
2318 
2520 
2330 
2540 
2550 
2350 
2370 
2358 
2450 
24460 
2458 
z4E0 
2478 
2488 
2498 
2500 
2518 
2520 


2530 


PEND 


PROC KNOT CA, B) 
A=A+U; K=B+V 
CIRCLE A‚B‚ 1,13 

PEND 


PROC VARER, B, C‚ D) , XA, XB, XM, XN, XX, KY 
ANGLE 

HMELX EKD} AN=EKY GEKA 

MOVE xm, XN 

DRAW (A+U), CB+V) 

MOVE XM, N35 XAM GRAF KY EAN GLB 
DRAW XX, XY3MOVE XM, XN 

VK=AM BLA T AYZAN+ GERD 

DRAW XX, XY 
AM=AME ZB 5 ANSANS 2e KA 

5. 14E8 

PEND 


PROC ARROWCA: Be Cs D) ‚ XA, XB: XM, XN, XX, KY 
A=A+UrC=C+Ui BeBt Ws DeDeV 

ANGLE 

AKA ZERAS DAB; KY zB ZB 2 

MOVE A, B5:DRAW XX, XY 

KKER+ AAB DLA 3 LY Bt ZB DLA 

MOVE A, BEDRAW %X, LY 

MOVE A, B:DRAW C,D 

PEND 


PROC MASSACA, B), M‚.N 
A=AtUs B=B4 Vv 

MOVE A, B 

B=B-4 

DRAW A, B 
M=A-4ASN=BE DRAW MN 
M=A+463 DRAW M‚N 
B=B-2; MOVE A, B 
M=A-SiN=B5 DRAW Ms N 
M=A+Z: DRAW M‚N 
B=B-2;MOVE A, B 
M=A-Z23N=Bi DRAW M‚ N 
M=A+£5 DRAW Ms N 
PEND 


PROC INDUCCA, B: C‚ D) ‚ XA, XB: XM, XN, XX, XY 
ANGLE 
HMA KT HKB AN=KY TEK 
MOVE XM, XN:DRAW CA+U), (B+V) 
MOVE XM, XN 
F‚A=1 TO 3 
KKEKM-AR 3 LAY=ZAN KB 
DRAW XX, XY 
AMK XDA Zok HA} ANELY + 24KBH Zh 
DRAW XM, XN 
KXEAMEKES HV=AN KA 
DRAW XX, XY 
HMZAK + DRK AN=LY DELA 2KB 
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2548 
2550 
2560 
2570 
2588 
2598 
2680 
2618 
2629 
2625 
2658 
2648 
2658 
2660 
2672 
2650 
25698 
2635 
2708 
2718 
2720 
27530 
2748 
2758 
278 
2770 
2780 
2798 
2850 
2840 
2850 
ZBEU 
2870 
2880 
2838 
2908 
2510 
2928 
2930 
2248 
29580 
2968 
2970 
2380 
2930 
3000 
3010 
220 
2020 
3040 
5058 
z059 
3108 
5110 
3120 
3138 
140 
215A 





DRAW %M, XN 
KKAMH KAT NY=AN- KB 
DRAW XX, XY 
AM=AX ET AN=KY 

N. 
DRAW CC+U), CD+V) 
PEND 


PROC POSCA, B) 

AzA+UF BEV 

MOVE A, Bs DRAW A, CR-2) 
MOVE A: B5 DRAW A, CR+2) 
MOVE A,B: DRAW (A-2),B 
MOVE A, Bi DRAW CA+2),B 
PEND 


PROC NEGCA, B) 

AzA+Us B=B+V 

MDVE A, B:DRAW CA-Z),B 
MDVE A: BiDRAW (A+Z), B 
PEND 


PROC TEKCA 
2H5B=A GRCOPY 
PEND 


PROC NFETCA: B); MN: Or X, Y 
START 

y=D-4 

DRAW X, Y3MDVE NO 
Y=0+4 

DRAW X, Y 

Y=0+5 

MDVE XY 

XEN+M*S 

DRAW XY 

YaY+i 

DRAW X,Y 

XaeN3 Y=0-5 

MOVE XY 
K=N+MHT 3} A=N HNK 3 BY 
DRAW X, Ys;MOVE A, B 
N=A-M4«T 5 D=Y- 
DRAW N,05MOVE A, B 
N=A-Mkzs DYE 
DRAW N,OsMOVE XY 
v=Y-1 

DRAW XY 
PEND 











PROC PFETCA, B); MN, O0, X, Y 
START 

y=0-4 

DRAW X, YsMOVE NO 
Y=Otá 

DRAW XY 

Y=0-5 

MOVE XY 





3168 
s170 
5188 
5190 
5200 
3210 
3220 
3250 
3248 
3250 
3268 
3270 
528 
5298 
3502 
3318 
3320 
3330 
3348 
3288 
3530 
35400 
3412 
zh20 
3430 
3440 
3450 
5650 
3660 
3670 
3718 
3720 
2730 
3748 
35758 
3760 
3778 
3980 
5265 
39908 
A95 
4243 
4815 
480 
46020 
4043 
4850 
4DED 
4970 
4880 
4838 
4100 
4110 
4120 
4130 
4148 
4152 
41E 
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KEN+M*# 5 

DRAW X, Y 

Y=Y-i 

DRAW X: Y 

XEN; Y=0+3 

MOVE X, Y 
RaN+M# Ss Bey 
DRAW A, B 

B=Y+1 

DRAW A, B 
X=XtMiMOVE X,Y 
A=X+Me Zi B=Y-2 
DRAU A, B5MOVE XY 
A=X+Mk2iBeve2 
DRAW A, B 
PEND 





PROC NMOSCA,B);M:N, Os X, Y 
START 

A=XiB=Y-3 

DRAW Ar B3MOVE X,Y 
B=Y+3 

DRAW A: B 
KaeXtMeziN=XiD=Y 

MOVE N,O 

G. 2830 
PEND 


PROC PMOSCA: B), M‚ N, Or Xs Y 
START 

A=XsBey-5 

DRAW A, BsMOVE X,Y 

B=Y+3 

DRAW A, B 

Kete iNeXsD=Y 

MOVE N,0 

G, 3189 

PEND 


PROC TEXTCA,B): IJ: KiN: P,S1 Ts, Xe Y 
A=R+U3 B=B+V 
S=#1405 X=AiN=0 
Do 
IF ?S=tDiN=25540, 4160 
IF ® 7CiN=45G. 4150 
IF ?5=#SCiN=-45G, 4150 
Y=Bt4tNi Tei DDO+Ee( ?5-#20) 
F.J=l TO 7 
P=126:K=?T 
F‚I=i TO 8 
A=K/P+1 AI K=KAPt PaP/ LI Kaktt 
PLOT A, X,Y 
N. 
YeY-1iT=T+1iXeX-B 
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4170 PEND 

41828 

4198 PROC OFFSETLA, B) 

4208 U=AiV=B 

ä210 PEND 

4228 

4238 PROC ZENERCA: B: C: D) , KA, KE, AM, AN: KX XY 
4248 ANGLE 
4258 AMEX ZA AN=AY DEAR 

46268 MOVE AM: XN 

4278 DRAW CA+UI, CE+V) 

4280 MOVE XM, UNE AXEAMA ART AVAN LE LE 

4295 DRAW AX, Y 

430 AK-AKHIHABS RYERY ERA 

46S13 DRAW XX: #Y:MOVE %M, XN 

4E2D HKM EAA AVAN GB 

4530 DRAW XX: %Y 

4IGB  AKAK-2EABS AVA DAA 

4358 G.1430 

4355 PEND 

43E 

5808 P. SIA"TEKPLOT PROGRAM 5. 198422 TT 

5005 S=#14Di UBI VDI E=HAEES 

5012 P.* 1, NEW FILE“'" 2, LOAD FILE""" 5, RUN FILE“'' 
502% IN, S#2520 

5030 IF $#Z88H=" 3" sG. 5050 

5040 IF $#280 “36, 5845 

5041 IF $HZODD="Z" 5, SEU 

5242 P,"PRESS i,Z OR Z :"' +6, 5220 

5043 P.SIZ"TEKPLOT EDIT MODE T, 1924""" 

5044 P. “VERGEET NIET UW FILE TE SAVEN VOORDAT U tekplot WEER" 








5045 P.“ RUNT! "7?" NEW" " AUTO 10009" E1EEILFE. 
S0SB IF ?CE-1I)H7FIP.?" NO FILE *"’ 50. 5042 
5052 L=25E#ICE- 1) HIE 

5854 G.L 


SUEB P‚.$12''' 3IN, "NAME INPUT FILE "$CE-EE) 
5078 L=LENCE-E5) Lat +E-63 

SOER 'LEHIEIETALOSL! Aek20ADLOTL 

5099 +. TESTI 45C1 

5102 F‚N=i TO 3200 

5118 WAIT 

S120 N. 


Inhoud karakterset op #1DO0 


85 C E5 IE AF 29 85 ID 2D EF EA 28 25 EZ 
A2 U 53 B 20 95 A5 CE EB ED EB DU FS ES 
95 95 Le CA DY F7 18 AS SC AA ES AD B5 AZ 
ag Al E5 AZ BA ES AQ 95 85 Al AB Si 28 


ze 2E EZ A3 
SD Be zE 
25 4E Dt 
ar 20 zo 
EA EF Di 
4F 20 20 
EA CF 8 
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1DCO: CA 18 EC 4C SF FE AS 1 58 70 1F 20 71 


m 
© 
e=} 
& 
LN 
El 
ne 
le} 












1DD8: 71 FE C@ 22 FO 4 COA 2T DS E 5 23 iF 20 FB FE CA 
1DEB: CQ 32 DD A 20 4 CS AD 1 BĲ 29 SB DO FE AE E4 Aú 
1DF ES 6E 28 6C ZA 2 28 A7 1D B 4E CI IAB U U 
9 8 0 3 A 4 4D 4D 4D4D CAO 3 5 B 70 
e8 EE SO DE 0 2 U B 9 90 ED SDE TED AL 
ED B B 2 P 4 EZ RG ES 1D 2E GAGE B DO OQ 
EC 92 92 6C D 08DL U 0 DV U B BE 4D EV 
e® su EB eB 4D 5 8 40 4D 4O 4D 4D ED 5 U DW 
ee 0 2 u 6E @ O49EVAD O0 BD 4 © B 
D 0 B EDeD 6 D B BEB 0 B B á U B 
0 0 OE 0 5 2 4 B 1 20 4080 B 2 6D 
Su 99 WW EB F B 4U CH 4840 GOES 4 B 68 
SP 10 20 4E FO E BEV SW 20 10 WEU £ @ 82 
Av ag Fe 20 20 3 A FOBDEN 10 19 FA 3 B 70 
82 EB 0 MED z BFO 1D 1D 20 4D 89 X U EV 
90 62 9 WM EV FT DEU SWS 7 10E 3 B @ 
ve eo 0 6E a U DE 8080 E10 20 
GO 8D 40 20 10 2 Dd D DEP BEB B 4 88 4D 
20 19 28 49 en TFU 8D 4D 20 40 BD FD TEL 90 
20 % 0 EA 80 TEA SY FG 3 B TeB 90 
Ea 90 99 EQ VD FEL EBB W 6D DP FEB 9 
SO 9e W E39 D 3 FD SVEVSLEUFR B 3 FO eV 
E23 0 SQ 88 PD FEB 0 eV BĲ WW ED DP 3 9D 30 
Fo 90 W 9 DO TED 4ULDAB DER B 4 Ze 18 
18 19 W 62 B 290 ADCOCARDIW OO 580 BL 
eo 89 ED FAQ B FEB DE AS BB EB BE B 2 3 DU 
B® 90 90 90 @ 5 F@ W 0 0 2 FO O Tea 90 
se ev 80 20 VP FEA SU SA 9 BO 7D B 2 eE2 90 
E2 co AQ SB B F7 BY EO 1D W EU 2 5 Fe 20 
29 20 20 20 U 290 90 2 U WW FO B 388 88 
ee ee Sa 20 O 258 89 BE AB DE 8E B 2 BB UB 
30 20 68 EB O 28850 20 20 20 7D U 2 FB 18 
20 48 20 F3 @ 5 CU 8D su EBER EBC 5 Fr FF 
FF OEF FF FF FF FF CD 4D 4D 4D 4D 49 CA 5 DV 
18 F8 10 0 B 2 FF FF FF FF FEEFFFFFF © 0 
1D REM -GRAFIC COPY- 
20 REM D. VAN DEVENTER 
30 REM OOSTEINDSEWEG 16% 
4B REM 26E EC BERGSCHENHDEK 
S@ DIM LL12:FOR 1=0 TO 123LLI=#FFFINEXT 1 
60 P. $85:P=A+GOSUB à 
70 P. $0E:P=A;GOBUB à 
B@ $T="GRCOPY"; T=T+LENT 
38 7 zLL0/2 SEOHEDs 7? =LL DIEET Zeh TT 
LA 
130asEs:LL@IJSR HC4E4 \ TEST EINDE STATEMENT 
14@ _\ PRINTER ON EN 8 DOTS LINE-FEED 
158 LDA 9#2;JSR #FEFBiLDAD27iJSR KFEFB:;LDAARES:JSR HFEFB 
158 LDA A8; JSR #FEFBILDA D1IJSR #FEFE 
178 _\ HIGH BYTE SCREENCOUNTER 
180 LDAAHEDI STA HEL 
190 PERFORM TABULATION (#EE) 


200: is JSR LLI@:LDA #SBIAND 91275 TAXIBEG LLT 
218 LDA EZ: 
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220: 


230 


248: 


250 
260 
278 
288 


298: 
z00: 


310 
320 
258 


340: 
358: 


369 
578 
568 
z50 
400 
418 

z@ 
450 
445 
450 
4E 


470: 


450 


498: 


500 


518: 


520 


550: 


540: 


LLEIJSR #FEFBSDEXIENE LLE 
\ ESC UK! + NI + NZ 
LL3ILDA @27G;JSR HFEFB: 
LDA #8B5ASL A:LDA @755ADC BHADIJSR HFEFB 
LDA A#0U5 ISR #FEFB:LDA O#GIIJSR HFEFB 
\ READ 2#8 DOT-FIELD 
LDA d28:STA #50 
LL4ILDX S#ODILDY A#OG 
LLS:LDA (#BD),YISTA HEE, X 
INX;TYA:CLCHADC dE2:TAYICPX BEIBNE LLS 
\ OUTPUT & DATA BYTES 
LDY A#BE 
LLE:LDXA#DE 
LL7;LDA #82, X3 ASL AiSTA #82, XsROL #BAFINXsCPXORDEIENE LL7 
JSR LLS;DEY:ENE LLG 
\ COUNT FOR NEXT E#B DOTS 
LDA #BD:CLCHADC OHD1ISTAHEDICMP SEZIENE Liá 
\ ADVANCE B LINES 
LDA D#ADIJSR #FEFB:LDA #BIICLCHADC A13 STAHEL 
CMP BHIEIBNE LLIZSJSR LL1O 
\ RESET LF EN PRINTER OFF 
LDR 9275 JSR #FEFBILDA OESIJSR #FEFB 
LDA BiZIJSR #FEFBiLDA A13IJSR #FEFBILDA D55JSR KFEFR 
JMP #CSSB 
\ OUTPUT 8-EIT SUB ROUTINE 
LLS:BIT #BA:BPL LLS 
LDA #BLLZ:DRA SEISTA HBLL23ASL A:CLC:LSR #6 
LLS:LDA #BAIJSRLLIL 
\_ CLEAR BIT 8 
LLIGILDA HELL25AND @#F7 5 STAHELLAIRTS 
\ PART OF OUTPUT ROUTINE 
LL1i1;PHAI JMP #&FFOS 
LLI2: FMP LLL 








550; RETURN 


ie 
10010 
18820 
10850 
18840 
12058 
10052 
10365 
14356 
18878 
18950 
19885 
16830 
19035 
18150 
18185 
18118 
18178 
18158 
19140 
12150 
10168 
10170 





REM teetedesteoberedeerjekkeatoopsnpoopsakeokakok ak Appa oke 
REM # hid 
REM * PLOT PROGRAMMA ACORN ATOM * 
REM # (VOORBEELD) hid 


REM storantfk enk ate poppen keokaopebeoks dok 


CLEAR4 

$S="Fig. t Voorbeeld van een netwer 
OFFSET CO, 8) 
WIREC10, 40, 240, 10) 
VBRONC10, 10, 19, 70) 
$5="U\i\n"sTEXTEZO, 40) 
CAPCIG, 70, 45, 7D) 
$5="C\b\r\o\n"sTEXTCL7, EB) 
RESISC4S, 78, 45, 180) 
$S="{OK"""ETEXTC2D, 125) 
WIREC4S, 150, 240, 180) 

POS (245, 180) 

MASSAC2E0, 10) 
DIODEC45. 70, 45: ZD) 
NEGC4S, 25) 

KNOT £ 240, 188) 

KNOT (EAD, 10) 





TEXT C1B: 10) 


[TEK PLOT HANS SCHWIRTZ 





18120 
18150 
10202 
12210 
18220 
1827 

18240 
18250 
18260 
18270 
10282 
18238 
18500 
10518 
1837 

18320 
10540 
18350 
18568 
18570 
10288 
10798 
19400 
18410 
18420 
10430 
12449 
19450 


KNOT C45, 0) 
WIRECGS, 78, 65, 70) 
NEET (64, 78) 
WIREC7J, 65, 75, 65) 
NPN(-82, 55) 
WIREL73: 58, 75, 45) 
WIRE(C7S: 45, 182. 45) 
IBRONC(S8, 45, 88, 10) 
ARROW C29, 21, 39, Z1) 
WIREC102, 45, 182, 58) 
NPN(9Z, 55) 
WIRE(102,60, 1092, 55) 
NMOS (115, 70) 
WIREC7S, EZ, 84, BZ) 
WIREC192, 62, 91,62) 
WIRELSI, E2, B2, 55) 
WIRE(B4, 52, 93, 55) 
WIREC7Z, 188, 73. 170) 
WIREC1G2, 180. 102, 170) 
PNPC-BZ, 165) 
PFET(35, 165) 
WIRECE2, 165, 35, 155) 
WIRE(7Z, 150, 73, 75) 
WIREC7Z, 152, 85: 155) 
WIRE(BS, 153, 85: 155) 
WIREC102: 75, 102, 160) 
INDUC{ 192, 180, 120, 180) 
CAPC15D, 188, 130, 20) 


18469 
18470 
1848 
18430 
19495 
19495 
18592 
18519 
10528 
18538 
1854D 
18558 
18559 
18578 
18588 
18585 
105309 
18640 
18610 
19615 
10620 
18630 
18625 
18640 
10658 
18678 
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VAR( 145, 100, 145, 28) 
WIREL130, 20, 150, 18) 
WIRE15®, 189, 178, 100) 
TRIC170, 95, 178, 115) 
3TEXT 174, 118) 
SS="+"3TEXT (171, 180) 
WIREC19D, 185, 21B, 185) 
WIRE(210, 105, 210, 138) 
ZENER(2108, 150, 160, 130) 
WIREC16G, 150, 158, 110) 
WIRECI5D, 1108, 170, 119) 
WIREC1E®, 158, 160, 155) 
WIRECI11, 70, 210, 70) 
INDUCC219, 70, 210: 125) 
ELCDC21D, 19, 218, 70) 
$S="1O4F"$TEXTC216: 4D) 
RESIS(16@: 155, 210, 155) 
WIREC2108, 155, 220, 155) 
KNOT (228, 155) 

$5=" input" :TEXTU222, 155) 
RESISC1658, 10: 1658, 70) 
ARROWC176: 48; 158: 32) 
$Se"f\o“ TEXT (177, 4D) 
WIREC160, 32, 160, 28) 
WIREC1IE®, 20, 145, 20) 
TEK CO) 








18588 END 











Fia 1 Weerbeeld van een nEkwêrk 





PAG. 76 | ACORN NIEUWS|TEK-PLOT | KANS SCHWIRTZ 





1E REM stotteren stotende 


18018 REM + * 
18928 REM * TEKPLOT TEST PROGRAMMA * 
10038 REM * * 


18B4B REM okorseatorrogkott kkk akk: 

18958 

18058 CLEAR4 

10278 WIREC1IG, 198, 52, 190) 

19089 RESIS(1G, 180, 50. 185) 

12698 CAPC1G, 178: 50: 170) 

19129 ELCOC1G: 160, 50: 158) 

1@118 INDUC(1O: 150.50, 150) 

18128 ARROW(1Z, 140, 5D: 140) 

1813 NPNCZO, 125) 

13148 PNPCSD, 1181 

19150 NFET(5G, 95) 

13169 PFETCZG, 80) 

18175 NMOSCEB, 65) 

10188 PMOSCED: 50) 

18718 DIODEC1O, 25: 50, 55) 

18225 ZENERE1G: 20: 58: 20) 

18230 VARCLOD, 1856, 150, 180) 
0240 VBRON(190, 165, 150 155) 
19250 IERON(iG@, 150, 150, 150) 

10250 MASSAC125, 155) 

10278 POSCHES, 115) 

10289 NEGC125, 105) 

18230 RECT(120, 80: 150: 185) 
10590 TRICIGG 45: 109, 70) 
103518 KNDT(125: 48) 

1472/ UURBART Orr, DI" TEXTCAEDs £ 50) 













18350 VIEZLSETBTr HF Ce) 2 GTEKTLIES, LEG) 
10240 DRABCDEFGHIJKLMNO" s TEXT CIES: 120) 
18558 PORSTUVWXYZEI" TEXT C1ES: 105) 
10360 ‘abedefshijkimno"iTEXTCIES: 90) 
10578 parstuvwxyal} “s:TEXTCLIES: 75) 


19380 $S="Extra mosetijkhedens"sTEXTC16S, 50) 

10598 OFFSET Cx y), TEKCK) “TEXT LES, 40) 

10408 $S="ook \s\u\b- en OskuWpflelrscript!"sTEXTCL0D, 20) 
18418 END 























LL 
Si 
mn 
eer 
en 
” 
£ 
t wabedefdhijkimne 
£ Pars 
Hs 
a . Extra mogelikheden, 
e Pa 
° DFFBET (nad. TEK 
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Ioa\s we attemaa) Imisschiern) Weten: zvn lane niet alte moset ike 
(256) opcodes bii de 6502 sepruikt. £ dit seidt niet voor de 65C32 
waarbij alle “niet bestaande“ instruktie's NOP's ziijn. } 

De oncodes die niet officieel) benoemd zijn doen echter WEL iets !', 
De "nieuwe" instruktie's worden NIET herkend door de assembler, dus 
de opcodes moeten secoked worden. 


DE OPCODES: 


ASL ORR: shift left one bit, and OR Accu with resutt 


Cn | a 0 AvM-—A 


amen 


flass: NZCIDV 


xx % 
zero: 87 zero,x: 17 ind:x: @5 ind,yt 13 
abs: OF abs.x: IF abs,y: 15 


ROL AND: rotate left one bit, and AND Aczu with resuit 


m 7 = 0 — mn At M-—-Â 











Helms 
fiass: NZCID VV 
KKK 
zero: 27 zero.x: 57 ind:xt 27 ifd,y: 33 
abs: 2F abs,xs SF 


LSR EOR: shift left one bit then EOR Accu with result 





Om |T 0 | —=C ÂvM—A 


tiass: NZCIDV 





KKK 
zeroi 47 zero.x: 57 indsxs 4E ind,yî S3 
abs: 4F abs:xt SF abs:y: SH 


ROR ADC: rotate risht one bit and ADD result to Accu. 


ne en 


flass: NZCIDV 

KAK ee % 
zero: 67 zero:ks 77 index: 63 indsyi 7E 
abs: EF abs:K! ZF abs:y: 7E 
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LDX LDA: toad beth X and Accu with memory 





ftass: NZCIDVY 
eend 
zero: A7 zerorx: B7 ind:x: AE ind,y: B3 
abs, x: AF abs:y: BE 


DEC CMP: gecrement memory: and cOmPare result wint Accu 


ftass: NZCIDV 


KRK 
zero: C7 zerorxt D7 ind:yx? CZ ind,y: DE 
abs: CF abs.xi DF abs.y: DE 
INC SBC: increment memory ; then subtract resuit from Accu 


fiass: NZCEDV 


ER eind 
zero: E7 zerox: F7 indyx: EZ ind,y: FZ 
abs: EF abs, xt FF &bs:y: FB 


ROL ORA: rotate left one bit , then OR Accu with resuit. 
EE Be AvM-=-Â 
Bel. oen 


tlas: N Z 
A % 
abs:y: SB 














le} 
el 
[=) 
ES 


AND LSRA AND Accu with data then shift teft one bit 


o— [7 -ol —c ACM-A 


ano Lean 











fiass: N Z 
@ % 
Imm: AB 


“an 
1 
La 
<< 


TXA AND: transfer X to A, then AND accu With data 
flass: NZCID V 


Imm: SEB 


STZ : store zero in memory » X,;Y‚A unaffected 


flass: NZCIDV 
-%---- 
Aes: 9C 
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SAX t AND Aceu with « res, and store result, 
tiasst NZEIDV 
XK 
zero: 78 avs: EF avs.x: AF abs.y: 97 


NB tnis instruction takes 3 extra cyctes 


SBX t AND Accu with x res, then subtract ( WITHOUT CARRY) data 
flass: NZCIDV 
KL % 
Inm: CB 


NB this insruction takes 5 cyctes 


NOPxx  t wait 2 cycles: isnore byte fol lowins 


Any of the following: O4 1á 34 Gh S4 74 80 69 Fá 


NOPxxaxt wait 5 cyctes: isnore both bytes foliowins 


Any of the fotlowins:BC 1C SC SC 7C DC FC 


HALT i disabte processor until reset 


Any code whose LSB is 2 (ekept A2) 


Het aantal bytes, en het aantal cycles: 


cycle 

Bytes time 
zero 2 6 
zero, X 2 7 
Cind: X) 2 18 
Cind: YY) 2 18 
Abs kî 7 
Abs: X 3 8 
Avs, Y 3 8 
Im 2 2 


Er zijm OOk nos een aantal dubbeie opcodes: 


AND timm) : OB of ZB 
SBC imm) & ER 
NOP z 1A, ZA, SA: 7A, DA: FA 


Bron: Acarn User June 1984 
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10 REM WORDPACKVERANDERING 
13 REM Henk Boxma Regio NRD 
14 REM De gebruikte printer is en NEC PC-BO23BE-N 
15 REM Maar u Kunt uw EIGEN pr,codes hierin verwerken, 
16 REM DOEL binnen de regel andere printaode 
37 REM De rechter en linker marge zijn dan niet 
18 REM neer te vertrouwen, 
20 DIMLLS 
30 FOR I=O TO & 
40 LUI 1; NEXT 
59 FOR 1 TO 2 
$0 P=HAACS 
FOL LOYEROF;JSRHACDEs\zet OSRCH en OSWCH 
80 JSRRHFD6F;NCTRL L 
PÛ LDAEHS2;STAHI2:JMPHC286IN\ "terug van wordpack* 
100 s:LLO CMP@#7Bi\shift IT 
110 BCC LLS;\print 
120 CMP@H7/Ci\shift \ 
130 BENE LL3;JSRHAPDF;BCC LLSs\stuur dec,waarde n.printer 
14G :LL3 PHA:LDARRIB; JSRHFEFB;PLlA;\code n.printer 
150 CMP@#7Di\shift 1 
160 BMI LL4;“het is shift [ 
170 BEQ LL5;s\het is shift 1 of anders shift * 
180 :LLé INY;LDACHS2) ‚Y;\lees volgende char 
190 CMP@#2A;\is het einde van code ? 
200 BEG LL7iJSRHFEFB;BNE LL6 
210 :tL? RTS;\terug naar #A8CE 
220 
230 :LL4 LDAE@RZS;BPL LLS;\code naar printer 
240 :LL5 LDAC@H24 
250 ;LL8 JMPAFFFâ;\print en Keer terug naar HASCE 
2601 
270 NEXT 
280 PRACFI=RI 4; PRACF ZERE 
290 PHABCC=LLOZH100 ; PHABCD=LLO/#100 
300 IF P£#ABO5;D0 PP=RFF;P=P+ 1; UNTIL P=HAB05 
310 END 

















in de vorige aflevering van Acorn Nieuws stond op blz,27 een 
ward=-pack wijziging van Arie Marchal.(Het adres #AACC bleek HASCC te 
moeten zijn.) 
Deor deze verandering zou het mogelijk worden om binnen een regel op 
een ander lettertype over te stappen,waarbij het uitvullen van de 
regel vlekkeloos zou verlopen. 
Dit laatste,en ook de genoemde adresfout,was niet zo daor Arie 
bedoeld. Integendeel . 
Het voorstel,om het Q-commando van de WP te veranderen,levert echter 
zoveel ruimte op,‚dat we meer Kunnen doen.Zie bovenstaand programma 
en onderstaande demonstratie. 
DE volgende waarschuwing is op zijn plaats: IK heb het Q-commando 
dat op #AACS begint nog meer uitgekleed.{ na verlaten van WP Kan de 
Jock-mode fout staan) 
Bovendien zal het opnemen van een printercode in de text de plaats 
van de rechtermarge onzeker maken.Gevolg:WP-commando .j is niet te 
gebruiken. 
Voor dit artikel heb ik meer papier verknoeid dan gebruikelijk.Ous 
bedenk je voordat je het gaat toepassen. 
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Alvorens te demonstreren,eerst enige toelichting van de gebruikte 
codes. 
Een opdracht aan de printer wordt soms niet,maar vaak 
wel „voorafgegaan door de waarde HIB (ESC) .Om de tekst in de WP 
leesbaar te houden heb ik het volgende gedaan. 
Shift \ gevolgd door een decimale waarde,die ais ASCIi-waarde 
doorgestuurd wordt, 
Dit is voor bijv, P.#E of P.#9 
Shift “ gevolgd door een of meer letters en afgesloten door X. 
In dit geval zorgt het programma zelf voor het wegsturen van het 
getal #IB,gevolgd door de ASCII waarden van de letters. 
Dit fs bijv. voor P.‚.#1B*P* (code voor proportioneel printen) af 
P.#18*L015* (code voor linkermarge). 
Shift [ Hiermee wordt overgeschakeld naar het griekse alfabet. 
De letter 2 wordt dan afgedrukt als ‚dit is de letter 
gamma,ofwel de griekse letter c.Je moet hierbij wel de tabel uit het 
printerboekje gebruiken,want van een logische volgorde is hier 
helaas geen sprake, 
Shift 1 Hiermee wordt overgeschakeld naar de normale 
alfanumerieke mode,Heb je dus alleen nodig om terug te Keren vanuit 
de grieks/grafische mode. 
De gewone WP-commando’s blijven geldig. 
De tekst die hier volgt is nu mogelijk: 

A Id 
Om te beginnen een paar woorden in proportionele printmode,al of 
niet onderstreept.Binnenin de regel overgaan op enlarged 
sf enhancedof emlar- GED enhanCED. 
Vanuit deze printmode a # Y 5 @ printen, 
Je kunt nu beweren dat sin(at8)s2X voor elke a en SER. 
Terwijl 44 een beter bad Kan zijn dan 4%, 
En (x2)9- xb=0 of x5 KH xi= xÌ2 
Dit mag ik bij deze gelegenheid = E44 4h YP toch wel even in 
een Adem noemen ? Ja & of Nee O0. 
Tenslotte de linkermarge op 25 instellen 


Bovenstaande tekst heb ik als volgt moeten intypen: 

Car sss sve vqagaaqu> 

“PXûm te beginnen een paar woorden in proportionele printmode,al of 
niet ““tonderstreept-YX.Binnenin de regel overgaan op 
‘14enlarged: 15 of =!Xenhanced”*"X of “!Xi1denlarGED enhanCED! 15", 
Vanuit deze printmode (@ C 2 2 M) printen.=NE 

Je kunt nu beweren dat sin{{&}+{DD) {YJ2(/} voor *Xtelke (@) en (DEIRTYK. 
Terwijl 4Ch> een beter bod Kan zijn dan 4(K). 

En (x£LD)C1}- xC5)=0 of x{4 #) x{TJ= XCGLI 

Dit mag ik bij deze gelegenheid C° a bc def 9) toch wel even 

in een adem noemen ? Ja {1} of Nee (mm). 

Tenslotte de linkermarge op 25 instellen “LO25% 

Hartelijke aroeten,Henk 
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ONDERDELEN LIJST VERBETERDE SCHAKELKAART. 








KE vem} 








IC’ s: standen: 

IC 1 74 LS 264 33 Konm 

IE 2 7á LS 245 582 ohm 

IC $ 74 LS 244 33 Kohm 

IC 4 74 LS B4 of 74 LS 14 472 ohm 

IC 5 74 LS 158 56 ohm 

IC & 74 LS 273 E20 onm 

IC 7 7á& LS 154 1 Kohm 

IE B 74 LS 155 15 Kohm 

IE 9 74 LS 18 Kehm 

IC 18 74 L5 22 Kohm 

IC ti 74 LS 47 zendensatoren: 

IC t£ ED 4555 B EE t EE UF tantaal 

IC is CD 4556 B È is vF tantaal 

IC Í46-19 2552 eprom C 5-E3 100 nF 

IE 24-27 BiiE ram C 10 15 uF tantaal 
Clt 188 nF 


transistor: 
Ti EC 547B 


diade’ st 

Di OA 95 of IN4DBI 
p rode led 

D5 IN4D01 





Het schema van de nieuwe schakelkaart wordt momenteel setekend en 
wordt in het votsende nummer Sepubticeerd. 
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HET AANSLUITEN VAN DE MODEM 





Voor het aansluiten van de modem wordt een telefoonsnoer 
genomen met aan de ene kant een stekker die in de kontaktdoas 
gaat en aan de andere kant een kontrastekker waar de telefoon 
in gaat. De rode draad wordt onderbroken en de twee uiteinden 
aan weerskanten van de gelijkrichtkring aangesloten. Op de 
print zijn hiervoor banen met een aansluiting aan de zijkant 
aangebracht. Oe blauwe draad wordt ook op de juiste plaats 
aangebracht. 

Van de print van de ATOM wordt op een punt waar 5 V staat 

een draad gelegd naar de 5 V aansluiting van de mademprint, 
We nemen nu een drie-polige dinplug en nemen net zo'n snoer 
als voor de cassette aansluiting. Soldeer dit snoer aan de 

de plug. Neem de draad die overeenkomt met de save uitgang 

en saldeer die op de aansluiting IN van de modem. 

Neem de draad die overeenkomt met load en soldeer die op de 
aansluiting UIT van de modem. Slodeer de massa (afscherming) 
aan het punt massa van de modem. 


De afregeling 


Dit kan het beste gebeuren met een scoop. 

Het potmetertje van 100 K is voor het volume op de uitgang 
van de modem en de potmeter van 500 K is voor de instelling 
van de sinus-golf. Met behulp van de scoop worden beide zo 
afgeregeld dat er een mooie sinus ontstaat, of nog beter een 
op een sinus gelijkende blokgolf en dat het volume (het span- 
ningsnivo) overeenkomt met het optimum van de ATOM. 

Voor dit afregelen hoeft de modem niet op de telefoonlijn 
aangesloten te zijn. Zet de schackelaar wel in de zendstand. 
Als alles goed is, dan kan er in bepaalde omstandigheden 

op 1200 BAUD gewerkt worden.300 is vrijwel altijd werkbaar. 


ONDERDELENLIJST TELEFOON MODEM: 





weerstanden: condensatoren: 

R 1 108 Konm € 1 228 ef 

R 2 SE ohm Cz 22 uF 16V 
R 5 32 Kohm E35 33 nF 

R â 22 Kahm TC 4 22 nF 

R 5-E 18 Kahm ES 1 uF 12V 
R7 228 Konm E 7-8 109 nf 

RB 1 Kahm 

R9 18 Konm halfseleiders: 

R 1O-1t 108 Komm T 1 BE S17 

R 12 DD Kohn IC t-@ Lm 258 

R 14-15 128 Komm D 1-2 IN4148 

R 16 108 Kanm instelpot. D S-á BJ 206 

R 17 528 Konm instetpot. DS BVS zener 





standen 1/8 watt: daar deze Pp de Print Passen 
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Deeg U eAL 
tabl wepou 





acorn 
computer 






EL ° Rood conkack dsos 


ao en 9 bhuw sEekker 
TIPS 0 Rood stekker 





&aV zener 







4x IN4OoT 





Aj LM 358 
A23 LM358 


















steker 


2x An4i4t 





telefoonmodem 
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Theo Waarer steide de voisernde vraagt 

Bij mijn ATOM doet zich het volgende voor als ik intik. 

IN. A, Bi XC=BPAGC=XCHFP. «C° C' 

en als Kk vervotsens invoer E en 21 dan krijs rk als vitkomsten 
36.000 en 35. UALALOG 

Ik kan dit wel ondervansen met #C=XC+0, 1, maar het blijft tozh 
eisenaard:3. Hoe Kont dit ?%, Is het misschien een foutje 7. 








Het antwoordt komt van Bas Kasteet en (luidt als volat: 


Ftoatins point setatten zoals #@ XA enz. worden opseslasen vanat 
#2808 met 5 bytes per variabele, Nemen we XB dan iS dit vanaf 
#2008. 

Als voorbeeld nemen we 1. 50000UDD als s=talten reeks. 

Aares: 2200 2801 50E 2505 2804 
bitnummer: 7ES43218 75543210 7ES4Z2ID TESUELIG 7ES4ZZIG 
binair: 19230001 DIEPLOUG PAVOVDLD PAPOLLLLD VAPARLUG 


teken bit voor seheei getal 
Ttekenbit exponent. 








Zoals de eerste byte hier is aanseseven ‚#81: is dit setat +1 
Chiarover zo meer) vanaf de zesde dit en zo verder staat 1/2, 1/4: 
1/16, 1/32 enz. tot in het laatste vit van #2804 waar 1/27 250 


{ 





‚3820020000 staat. 


Als we dit laatste bit “1” maken en we FP, Xò =EP2 dan ontstaan de 
getallen #2808 — HDE HOF HEF #&FF FE: tewijt voor TE. O09Z0UD HEE H1D 
#00 #00 #0D ze ten staan door de opdrächt ERE warden dus 
etrondinsstoutern Semaakt: welke bij de FP, statement niet uitkomen 
Bij de t echter wordt niet afaervind: mear Wordt botwes 
aties achter de Komma afs=hakt dat C dan 15 wordt. 

Vaor het setal HEL in byte #TEUD hebben we dus Sezien dat 
1/2, 1/4, 1/8 enz. besint bid bit 6 van #280i. Dez 




























ter verschuiven. Vast Staat dat het setalt dat in de ste 
bits van het zerste byte aanseeft hoeveel plaats we waeten 
verschuiven om de Ì/Z bit tevinden. We beainnen daarbij te teiten 
vanat het meest (inkse bit én terde byte, Naar voren wordt de 





rid aansevutd met Î 2 4 8 16 enz, tetdat het eerste bit in #2503 
wordt tegen Sekomen. 


Zo kan men 124.75 schrijven ats: 
Aaraes: 2808 2081 Ze0 2507 524 
binair: 10930111 Biiitadi 10AP0P0Y APLITLOB GULOLOGA 








Sien bit 
schuift 6 ptaatsen op 
tekenbit exponent 





Er is nu schter nos niet sesp 
setaiten en tue ze Ontstaan. 

In anze ATOM wordt een mantissa van DI bits zebtuikt. Dit geeft 
Nauwkeurieaheid van j deet up 2147á 47. mantissa zelf „Ss „en 
fiked Point Setal Welke in waarde tussen 1 List. Het ore 5 
van het in Sebisd brensen (tussen 145 en 1 malisat:e en 
he=tt tw 





’ Aver de aard van flaatine pexint 




















de lei. 
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1) We krijsen een max:mum aan sisnificante mantissa bits. 
2) De Komma kan niet door het setal “wandeien” gedurende 
berekeningen. 


Het meest sisnifikante bit van de mantissa is altiid 1 omdat de 

mantissa tussen 1/2 en 1 (ist, Hierdoor kan de aanwezisheid hiervan 

Worden aansenomen en wordt dit bit ais sien bit voor een positief 

ot nesatief setal (set is nesatief) sebruikt. 

Als exponent wordt een B-bit setal sebruikt: waarvan wederom het 5 

ste bit ats sion bit wordt sebruikt. Normalisatie houdt dus in dat 

herhaatd door twee wordt sedeeld of vermenisvuldisd totdat de 

mantissa in het sebied 1/2 tot 1 terecht komt. Het aantal malen dat 

doar twee Wordt gedeeld of vermenigvuldisd wordt Sebryikt voor de 

exponent. 

Voor het sisn bit van de exponent nemen we een 1 ais de Komma naar 
links moet en @ voor naar rechts. Dit is sedaan zodat ook bij de 

floatins point Ssetalten nul mogelijk wordt. Het meest negatieve 

getal voor de exponent is 18000998 of -128. Door ru voor het sion 

bit de nesatie (complement +1 ) te nemen wordt dit B. Het kleinste 

setalt dat dus oe deze wijze vitsedrukt Kan worden is 1/2 #2t-127 = 

2.3387#10T-33. Het maximaie setat is 1#29127 = 1, 7014*10138 

Nu eerst twee voorbesten: 

12 124,75 is 8. 3745689375 # 217 

{7 * door 2 delen tot de mantissa tussen 1/2 en 1 tist) 

De mantissa wordt nu in eenen en nullen omsezet 
1/2+1/4+1/B+1/16+1/52+1/256+1/512=0, 3746609375 zodat de mantissa nu 
is 1111199110 en verder 0. 

Voor de exponent hebben we 7 dus 320111. 

Nu moeten atleen noe de sien bits seolaatst worden. Het setal is 

sroter af selijk aan nut zodat de sian bit van de mantissa B wordt. 

We hebben moeten delen door twee om een genormaliseerde mantissa te 

verkrijsen zodat de sisn bit van de exponent 1 wordt. We krijsen 

dus 124,75 = 19800111 D11110Di 10LMLBAD verder B. 


2) -D.04E37S dit is BTS # Zt-4 

Voor de mantissa dus 11009000 en verder @ 

voor de exponent guus 00 

Omdat we zen nesatief setal hebben wordt de mantissa 11829046 en 
verder B, Voor de exponent geldt dat we hebben vermenigvuldigd met 
zodat we de nesatie moeten nemen. Dit is i1111011 en dan moeten 
we er een bij op tellen zodat het Íl111109 wordt. Tot slot moet het 
Sien bit soed sezet worden, (D1111188). Dit is dus -á Cals controle) 





Diii 00 
Taag Ge 





Vaktaal a ada kt] 





Mer ziet datsbrhalve de carry waar we verder niet mee rekenen, deze 
berekenina kÁ opt. 
-U, O4EBTS = G1111100 D100AA8D en verder 0, 





Haeel iëk is het vu Wat duideli 
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SYMBOLISCHE ASSEMBLER 


Uitleg van de symbolische assembler (vervolg). 





De vorige keer (inmiddels 4 maanden geleden, in Acorntjesbrood 
2.1) heb ik de naar mijn idee belangrijkste aspecten t.a.v. de 
assembler behandeld. Het moet mogelijk zijn om met deze kennis 
reeds leesbare machinetaalpragramma’s te creëren.Het zal u ech- 
ter niet verbazen dat de assembler nog meer faciliteiten bevat, 
maar voordat ik deze behandel, wil ik nog twee dingetjes t.a.v. 
de symbolen vermelden. Ten eerste mag de letter A niet als sym- 
bool gebruikt worden. De instructie ROL A zou dan nl, niet meer 
uniek zijn. Verder worden in de voorbeelden alleen hoofdletters 
gebruikt, maar kleine letters zijn evengoed mogelijk. 

Nu dan de overige faciliteiten: 

1. In de Atomassembler zijn deze constructies mogelijk: 

JSK TOP en LDADCH"I". De symbolische assembler zou TOP en CH 
als symbool opvatten i.p.v. als functie. Dit is te omzeilen 
door voor de functie een +-teken te zetten, dus JSR +TOP en 


LDAD+CH" 1", Aangezien de functie CH echter zeer vaak wordt 
gebruikt;heb ik hiervoor iets anders verzonnen. I.p-v. CH" x " 
kunt u nu *x invullen. B.v. LDA9'#, .BYTE "t, .LETTERA = "A 


LA] 


. Als u veel met maskers werkt, zoals bij de programmering van 
1/0-IC’'s, dan is het handig om de beschikking te hebben over 
binaire getallen. Welnu, ook dat kan. Dus LDADZIOIG (1O1 in 
plaats van LDAD#AS. Het % geeft aan dat er binaire cijfers 
moeten worden geïnterpreteerd. Hoewel niet relevant, is ook 
mogelijk: JSR Z1f11 14101 GOOL 1OIO i.p.v. JSR #FDIA. Overi= 
gens worden spaties geskipt en zijn leidende nuilen faculta- 
tief. LDAD% OOOO 1010 is hetzelfde als LDA941010 en ook als 
LDADXZ1 O1 0. Vergeet het % niet, want LDAD%10 is wel even 
wat anders dan LDAD1Ó! 

3. Ten behoeve van de programmeur zijn er “echte” foutmeldingen 
ingebouwd. Deze zijn te onderscheiden in zgn. warning messa- 
ges en error messages. In het eerste geval gaat de vertaling 
gewoon door, in het tweede geval wordt die onmiddellijk ge= 
stopt. Een warning treedt bv. op als u per ongeluk tweemaal 
hetzelfde label gebruikt. Dit kan echter ook juist de bedoe- 
ling zijn. Het is dus niet fout. Een error treedt bv. op als 
er een onbekende instructie staat zoals SEV, of bij onjuiste 
expressies. 

4. De waarschuwing OUT OF RANGE: wordt aan het eind van de ver= 
taling (na de symbol tabie) herhaald (ook als het scherm uit 
stond) met daarbij het regelnummer waarin er voor de laatste 
keer een voorkwam. U kunt dus van achter naar voren één voor 
En alle OUT OF RANGES opheffen. 

S. De symbol table is gewoonlijk nogal lang, zodat deze vaak 

van het scherm scrollt. Het afdrukken van de tabel kan ge- 

stopt worden met de shifttoets (met de S van stop) en weer 
doorgestart worden met de controltoets (met de C van conti- 
nueer). Was u.toch te laat met de shifttoets” U heeft de be- 
schikking over het commando SYMBOL, dat de symbol table nog- 
maals afdrukt. Het voortijdig stoppen van dit overzicht ge- 
schiedt met de escapetu 
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&. De routine die de expressies leest, kan de meest voorkomende 
expressies interpreteren. De beperkingen liggen hierin dat 
als een symbool wordt gebruikt, dit het eerste en enige moet 
zijn en dat er slechts één < of > in de expressie maq voor 

komen. De operator tussen een symbool en de rest van de ex 

pressie kan alleen bestaan uit + of —, 





goed: fout: reden: 
LDA2CONST LDADSYM1 + SYM2 2 symbolen 
LDADADRES > LDADADRES / 256 operator alleen + of — 
JMP PLOT + 3 JMP 5 + PLOT symbool niet als eerste 
LDXATABLE+#FBC LDXSTABLE<+#FBC tweemaal *<" 


Het blijkt in de praktijk dat alleen het niet mogen gebrui 
ken van twee symbolen beperkend is. Toch valt ook dit nogal 
mee, Opm.: LDADADRES>+1 en LDADADRES+HIOO> leveren hetzelfde 
resultaat op. 

7. Na ASSEMBLE wordt het geheugen van #8200 tot #9800 schoonge- 
maakt waarna vanaf #8200 de symbol table wordt geplaatst. De 
vertaalde code kan dus niet op #8200 terechtkomen.wel op bv. 
#90O0 tenzij de symbol table te lang wordt. Hou er wel reke 
ning mee dat de vertaalde code in dit geval door een volgen- 
de ASSEMBLE wordt weggeveegd. 

8. Als een "branch" naar een andere geheugenpagina plaatsvindt 
dan waar de instuctie staat, duurt deze 1 klokcyclus langer. 
Dit wordt kenbaar gemaakt met de melding PAGE CROSSING: en 
behalve bij kritieke timinglussen is deze niet interessant. 


Op dit moment (8 maanden na RELEASE 0.0) is er nog steeds geen 
RELEASE O.t, hetgeen inhoudt dat nog niemand echte fouten heeft 
kunnen ontdekken. Toch zitten die er wel in. Op een na zijn de- 
ze echter te wijten aan de Atom-assembler die niet zo fail safe 
is als sommigen wel denken. Ik zal daar wellicht ooit een arti 
keltje aan wijden. Het ene foutje treedt op als er ingewikkelde 
ten dus niet toegestane) expressies worden gebruikt.Het is niet 
uitgesloten dat de assembler dan soms zelfs blijft "hangen".Als 
u normale programma's schrijft, recht door zee en volgens de 
regelen der (programmeer)kunst, zult u geen problemen met deze 
assembler hebben. 

Dit was dan het tweede en laatste deel van de beschrijving van 
de symbolische assembler. De mogelijkheden zijn genoemd, aan u 
de taak om deze te gebruiken. Hartelijk dank voor uw aandacht, 
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QUICKSORT 


Bij het sorteren van getallen of strings wordt vaak gebruik ge- 
maakt van de Bubdblesort methode. De reden hiervoor is in de 
meeste gevallen, dat Bubblesort eenvoudig in Basic of assembler 
te programmeren is. Bubblesort heeft echter als nadeel, dat het 
sorteren in het algemeen vrij traag gaat. 

Een veel snellere en efficiëntere sorteermethode is Ouicksort. 
In de meeste gevallen is Quicksort, vergeleken met andere sor 
teermethodes,erg snel. Zo snel zelfs,dat Quicksort bekend staat 
als de efficiëntste sorteermethode. 

Het nadeel van Quicksort is dat de algoritme recursief is, en 
dus tot voor kort niet eenvoudig in Atom Basic te programmeren 
was. Nu maken we natuurlijk gebruik van P-Charme‚en dan krijgen 
we een elegante en snelle sorteerrautine. 

Onderstaand programma Laat zien hoe je met Quicksort een rij 
getallen kunt sorteren. Van het array NN worden de elementen 
1 t/m N (het opgegeven aantal)gesorteerd (dus NN(I) t/m NNIN)). 
@uicksort werkt ongeveer als volgt: 

Kies een element van het array, bìjv. het middelste,en noem dat 
X. Zoek nu het array van links af totdat je een etement vindt 
dat groter is dan X. Zoek dan het array van rechts af totdat je 
een element vindt dat kleiner is dan X. Verwissel nu beide ele 
menten, Ga door met zoeken en verwisselen totdat je in het mid- 
den bij elkaar komt. Het resultaat is dan dat het array nu in 
twee delen kan worden gesplitst: alle elementen links van X 
zijn kleiner dan X en alle elementen rechts van X zijn groter 
dan X, 

Door nu beide delen afzonderlijk verder te gaan sorteren, waar 
bij we dus de linker- en rechterhelft elk weer in twee delen 
opsplitsen, zal uiteindelijk het hele array gesorteerd worden. 
Door een ongelukkige keuze van het element X kan Guìicksort in 
bepaalde gevallen erg traag worden. In deze versie echter wordt 
geprobeerd dit te voorkomen door een zo goed mogelijk element 
hiervoor op te zoeken, volgens een idee van van Emden. 

De procedures SPLITS, VERDEEL en VERWISSEL vormen de eigenlijke 
Guicksort routine, De overige procedures zijn ter demonstratie. 
Achtereenvolgens worden een opiopende rij getallen, een aflo- 
pende rij getallen, en een random rij getallen gesorteerd. Dae 
aanroep om het array NN van element 1 t/m N te sorteren moet 
zijn: SORTEER(I,N), met N de lengte van het array NN. 

Het programma kan nog wel een stuk sneller worden gemaakt door 
alle spaties te werwijderen en afkortingen en optimalisaties te 
gebruiken. Ik heb dat niet gedaan om het programma leesbaar en 
begrijpelijk te houden. 
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1BREM PRON 

ZOREM AUT:MARIEN DE WILDE 
SOREM DIJKSHOORNSEWEG 85 
GAREN 2535 EM DEN HOORN 
SOREM PRINTER ON ROUTINE 
GOREM VOOR DE STAR GEMINI 
7OREM MET SELF-DEFINABLE 
BOREM CHARACTERSET. 

SDREM ZET ZELF DE PRINTER AAN EN 
1DDREM MAAKT EEM MOOIE J 

118 DIM LL2 

128 F.T=@ TO 2iLLT=-1 iN. 

138 IN. “WAAR CODE" G 

148 P‚$21 

158 F.T=® TO 1 

168 P=Q 

1780 

t88:LLB LDXA21 

19@:LL1 LDALL 2-1, X 


208 JSR#FEFB 

218 DEX: BNELL1 

220 JMP#CS5S8 \COF RTS) 
zID:LL ze 

2401 

258 NEXT T;P,$5 

268 XetL2 


278 !'X=kIDOODLDO ; X ! 4=4 004 AD 
258 X!S=4BIERDD4D: X! 17=N2ARD1BZA 
290 X!1E=#1B24D1 1; X?20=2 

309 A=4 
218 P. “PRON z#"&G" — #'EP+21" 

528 P. "LENGTE PRON:"P-Q+21“ BYTES"' 7 

358 P. "LINK ADRES :#"&LL9' ;0=8 

E48 P. "VERANDER DAN REGEL 220 IN RTS“ 

558 P, “OF MAAKE HET COMMANDO PRON"* 

360 END 

mmmmmmmmmnsstmmmmmmmnmtmtmmmmmmmm noses 

18 PROGRAM SOURRE 

28 GDS, : 

38 DIM LLC17,17) 

4® IN. "GROOTTE (5-15) *N 

S® IF N{SORN 15 P. "MINIMRAL Z EN MAXIMAAL 15"$7$74 ’;G, 48 
69 IF N%Z=3 P, "ON-EVEN GETAL A. U. B. "'$767675G. 40 

70 IN. "KLEINSTE GETAL “O0 

ev GOTO 168 

93 P.$2$2746562I; HFE=D 
1090 A=4tN/4 
118 K=DiJ=XCiN+1) /2) sIeJ+1 

120 M=t 

138 LLCE, J)=KsKekt1sMeMt1 

148 IF K=N&N+0 GOTO 240 
158 IF M(=N GOTO 199 
158 I=l+2 

179 IF I{=N GOTO 120 
1885 I=i-N3:G0OTO 1 
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19% I=i+irJeJ+1 
208 IF I{=N GOTO 220 
218 I=l-N 
228 IF J(=N GOTO 150 
258 J=J-N:GOTO 150 
268 FC NEN+220D- 1D ND /2 
258 P.$12" DE SOM IS "F*! 
zE8 FOR 1=1T0 N 
278 FOR J=tTO N 
zee PRINT LLCE, JD 
230 NEXT J 








388 PRINT ** 

318 NEXT 

220 P. SSILINKKFFESIP. 12 +0. 40 
z3BiP. sia” MAGISCHE VIERKANTEN!*" 


34} P. “MET DIT PROGRAMMA KUNT U EEN"' 
350 P. “MAGISCH VIERKANT MAKEN. *” 

ZEB P. "DAARVOOR GELDT DAT DE SDM VAN!" 
E78 P. “DE GETALLEN UIT EEN RIJ, KOLOM"* 
Zep P. “OF DIAGONAAL STEEDS DEZELFDE IS,“ 
za0 P."“U KIEST DE GROOTTE VAN HET *' 

408 P. “VIERKANT CON-EVEN EN MAX, =15)"" 
&1D P. “EN BEGINWSARDE IN DAT VIERKANT, “* 
420 P. “HET RESULTAAT KOMT OP UW PRINTER" 
450 P. "ALS U GEEN PRINTER HEEFT MOET!"* 
LAB P. “U REGEL 70 DELETEN"?' 

458 RETURN 





1GREM HEIST 

ZBREM F‚LE BLANC 

ZBIN. “ROUTINE OP: “6 

ABD IMLL2D3F. N=OTOZB; LLN=DEN 

SBP. SEL 

EOF, N=OTO1:P=Z05E 
7OLDAHIZISTAHSIILDYAOFSTYHSE 
SOISRLL4 

IB:LLL LDALHSE, Ys CMFAEDS BEGLLE 
18DJSRHTAAC s INY 3 BNELLI 

11GiLte INYsLDACHSS), Ys BPLLLT 
IZ2OISRHFFED: JMPHC2CF 
IED:LLE INY3INYG JSRECD54 5 JERHCERI:DEY 
14BJSRLLAt JSRHF7FD3 BNELL 1 
150:LL4 JSREFIFD+LDAOHZE 
1EALDA#SS: JSRHFED 
17DLDA#SE: JSRHFEN 
1EBIIN. 10=01P. EG"ROUTINE OP #"&O“-H#"EP' GE 
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138 PROGRAM CONVERSION 

110 

128 9=8 

158 

148 PROC CONVERT CW, X, Y2 ZD, KZ, LM, Is Jo Kr Lo M 
158 IF X=l OR Y=t $1="@";GOTO 350 

158 %Z= =@ 

178 FOR I={LENWì-1 TO @ STEP -1 

128 MaW?I 





130 XIF M(S58 THEN M=M-48 
200 ELSE M=M-55 
AIEKZeMe (KJ) 
JaJ+1 
NEXT 1 


M= CAZ+1) GK ZEM 
AM=LOG XZ /LOG CY) 
Kz 
FOR I=XM TO 8 STEP —1 
KM=KZ/ CY ID 
Mat CAM) 
XIF M{1D THEN J=M+48 
ELSE J=M+55 
KZ=KZ-MkLYAID 3 ZP Kes Kektt 
NEXT I 
ZIK=ED 
PEND 





288 REM setal conversie 

530 REM roep pracedure als valst aan: 

488 

418 REM CONVERT (str inssource,cld base: new base: strinadest) 
“id 

450 REM zet een geta! om Uit oude base naar nieuwe base 
aäB REM strinssource is strinsadres van oud setal 

459 REM strinsdest is strinsadres van nieuw setai 

468 

470 REM voorbeeld: 


490 DIM CZ, BCEO) 
SOB $A="177777" 

518 CONVERTCA, B, 10, B) 
328 PRINT $B' 


540 REM dit voorbeeid zet het octale setat 177777 om in een 
550 REM decimaal setal. 

560 REM deze procedure kan voor alie 'base's van 2-36 

578 REM worden gebruikt: hoser dan 36 kan ook 

SEU REM echter het geheel wordt moeilijk leesbaar 





620 REM E.J. SNELDERS 
E18 REM WELHAAK 6E 

E20 REM 93EE BK DELFZIJL 
E20 

E4A END 
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18 REM 1298 BAUD ROUTINES 
20 REM UIT P-CHARME: LICHT GEMODIFICEERD 
38 DIM BB40:FOR I=0 TO ZOFBBI=#FFEE NEXT 
48 P.$ZisFOR I=t TO 2 
50 P=KESSSIREM sek VUL ZELF ADRES IN Ì! u 
ES P=CP+UFF) &#FFOU) ORDO7AFREM FORCEER START CODE OP #xx7A 
7e 
EV:BBRG \ZET BGET-BPUT VECTOREN 


98 LDA9BB74256:STA#Z14:LDASBB7/ 256: STAE2IS 

188 LDAOBB1%256; STA#2165LDASBB1/ 255: STA#217 

118 RTS 

120:BB1 \bput 1200 baud 

158 PHP; PHA: JSRHFCZ3ISTAHCOFLDAHDOIJSR BBE: JSRHFCDS 
148 LDY@#DA: CLC 

150:BB2 BCC BB5 

158 LDX97:STXHBOO2ILDKALSENE BBá 


170:BB3 tLDAA4FSTAHBOB2; JSRHFCDB: INCHBBU2 
180:BB4 JSRÉFCDA+SEC:RORHCUIDEYSENE BEZ 
198 TSXsLDA#10S, Xs ANDIHOE FEOR#LDA, Xs CMPSHFC: BER BBS 
200 JMP#FCBE 

210:BE5 LDXE04:STXHHODZs PLAS PLP5 PLAS PLA: RTS 
220:BBE SEI; STXHECHSTYHCHIRTS 

Z30:BB? \bset 1200 baud 

240 PHP; LDA#D9: JSR BBE 

250:BEB LDAA#7E:STARCH 

2E0:BB3 JSRÉFCED;BUC BBS 

278 INC#CO: BPL BBS 

2E0:BBID LDXORL4ISTKHCAILDYHEDOZ 

298:BBi1 JSRÉFCCDIBEG BBI; INX 

ZOU: BB12 DECHFFC4IBNE BBI 


318 CPXa#175RORHCOF BCC BBO 
s20 JMPEFC1C 

3581 

ZAO IF ?#EDDI=LE7 THEN PRINT #6 
350 NEXT I 


3EB PCHBIAHD =D 

378 PRINT $6 

380 IF BE7&#FF=#EO THEN GOTO © 

230 PRINT $7“ ALARM !“"" "LOW BYTE OF BB7 SHOULD BE #E8"";END 
4YGoL INK BBO 

418 @=43PRINT "SSSS=#"&DBD' "EEEESH"EP!* 

420 END 

450 

úhB BEDOELD VOOR GEBRUIK BIJ BIJVOORBEELD DE ATOM-CALC EN 
458 WORDPACK ROMS DIE IMMERS ALLEEN OP DE LAGE SNELHEID VAN 
460 323 BAUD WERKEN. GEBRUIKSAANWIJZING: 

4678 *RUN’ BDVENSTAAND PROGRAMMA 

4EB 'SAVE’ DE GEGENEREERDE MACHINE CODE 

438 MET *SAVE "1208 BAUD" SSSS EEEE 

508 VOORDAT U MET DE CALC OF DE WORDPACK AAN DE GANG GAAT 
510 GEEFT U *RUN "4205 BAUD" 

520 NA EEN BREAK WEER INLINKEN MET LINK #555S 

530 I.V.M. DE TIMING IN DE ROUTINES IS HET VAN GROOT BELANG 
S4G DAT DE CODE BEGINT OP EEN ADRES HKX7A tINEiiiS 

550 HET PROGRAMMA ZORGT ZELF VOOR DEZE JUISTE ' SPORING 

st (ZIE REGEL 30) 
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18 PROGRAM BIG BENNY ONDER INTERUPT 

28 REM ZET DE TIJD VAN BIG-BENNY ONDER INTERRUPT OP SCHERM 
58 REM OPSTARTEN MET LINK KK@ 

4@ DIM KKS;FOR A=® TO 185KKA=#I9IIN, 

S® FOR A=@ TO 15P=#IBEBIREM PLAATS VAN RDUTINE 


&0L 

7@:KK@; SEI 

ea LDA A#85: STA#B4DS 

9% LDRAKK1/#FFISTA #205 
108 LDAAKKIEKFFG STA #204 
119 LDA #B4@2 

128 CLI; RTS 

1358: KK1 + TKA3 PHA; TYAF PHA 

148 LDA #B4B1 3 PHAILDA #B4BE: PHA 
158 LDY S#DOISTY #B4DS 

158 LDA #B482:DRA AHCBISTA #B4D2 
178 LDX 2#84;STX #B403 

188 LDA #B402:AND SHIF$STA #B4AG2 
198 PHA 

230 LDA S#54;STA #B4DT 

218 STY #B401 

228 LDA S#FO:STA #B40D 

230 STX #B4O1 

248 LDA 8#52; STA #85 
250:KK2ILDX #85 TKA SEC 

260 SBC AH1OISTA #85 

270 TXA:ORA S#28:STA #B420 
289 PLA: PHA 

232 ORA @#5BISTA #B482 

303 LDA #5400 

s18 AND S@F+ORA 3#5B 

28 CPX D#SDIEBNE KKS 

330 AND S#FS 

S4O:KKZIEOR 9#EDGSTA HBDLE, Y 
558 INY 

3EA CPY AHAEIBEG KKS 

570 CPY B#B2IBER KKA 

380 CPY S#DSIENE KK2 


3D: KKGILDA BHSAIBNE KKT 
4OB:KKTSLDA OHFFISTA #B40U 


ain PLA:ORA O#E0:STA #B4B2 
420 PLAIORA @#ZEISTA #B40F 
458 PLA:STA #B421 

445 PLA: TAY; PLA; TAX 

450 LDA #B402 

458 PLA;RTI 


477 





:E. 
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18 PROGRAM EXEC 

29J=9: DIMLLJ3F. 1=BTOJSLLISKFEF ;N. 

33 P.$215P=A5GOSUB a 

PT) P=A: GOSUB a 

EXEC" 3 T=T+LENCT) 
LO/25E8#80; T? 1=LLO%25EIT=T+2 

PiP“; TeT+LENCT) 
LL6/25EN#ED: TI 1=LLEK25EI TI 2=H50IT=T+2 







128a:C 

1350: LLO: JSRHCICH: JSRHCLEGFLDKXARDI s JSRLLS:LDYARDD: STYH4 
140LDADHEBs STAHLOO 

150: LLisLDACHS2), Y3CMPDHODs BERLL2I STAHIGD: Xs INKs INYs BNELLI 
1EB:LL2LDYARDAI JMP LLS 

178: LLE3TYASCLCFADCHAS 3 STARTS LDA a#03 
188STA#BE : STAHZS + ADCHOE 

1SQSTARCT; LDABHOI + STARDE: RTS 

20B:LL4t INY: INX 

LS:LDA LL7, Y5STAH1GD, X5 CMPAKD 3 BNELL A: JMPSCSSB 
LEsLDAD#BI ; STARDEILDARCEISTAHZSHLDAKCTs STAHOE ; JMPRCSSE 
258:LL7 55 EP=" SPIP" HP=PALHLENCP) 

Z4BRETURN 





NR nd 


18 REM SIDE SCROLL 

20 REM ACORN USER 6-’ 84 

ZU REM SCROLT UW SCHERM "CLEAR á' EEN BITJE NAAR RECHTS 
&B REM DIT PROGRAMMA IS ZELF-MODIFICEREND EN KAN DUS NIET 
50 REM VANUIT EPROM OFRAM ONDER WIRE-PROTECT DRAAIEN 

63 DIM BRCB) 

78 P.SZ13FOR I=1 TO Z3DIM Pii) 


88 CL 
90: EBU: LDAAHSDISTA BEZ+EISTA BESS 
109 LDAA#OOISTA BB2+1:STA BET+1 


110:BB13LDXBS1 

120:BE2;LDA#EGDD, X: ROR ArLDKAHOD 

150: BBZ: RORKEUBU, X3 INXS PHPsCPXOSZIEBER BBA; PLP: JMP EES 
14D:BBASLDA BB2+1sPLPsCLCHADC @52: BE BBS 





158 STA BB2+1;STA BEE+IIJMP BEL 
160: BBS;LDA O#0D:STA BE2+1;STA BES+1 
178 LDA BB2+25CMP OHSEIBEG BB6 
188 INC BB2+24 INC BBZ+23 JMP BB 


130: BBE;RTS 
ZODIINEXT IGPRINT $6 
210 REM DEMO 

228 CLEAR & 

250 MOVE @, 102 

240 FOR X=0 TO 256 
258 
258 
270 
<28 DRAW X, Y 

230 NEXT X 

500 DO 

sie LINK BBO 

320 UNTIL ?#BOOL=127:REM UNTIL SHIFT 
2350 END 
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Daar voor aanta! Printers de Codes 2, Sen 18 zelden en deze 
codes door de ATOM zelf worden opsestokt hier een oPlossine. 





18 REM PRTALL-18X A, MARCHAL 30-4-84 
28 REM DOOR IN #FE EEN NUL TE ZETTEN 
3@ REM KUNNEN ALLE KARAKTERS NAAR DE PRINTER GESTUURD WORDEN 
4@ REM DIT IS NODIG OMDAT DE WAARDES 2 OF 3 OF 18 
38 REM VDOR DE GEMINI-12X IN 
EO REM EEN COMMANDOSTRING KUNNEN VOORKOMEN 
78 
80 REM EERST ALLES NORMAAL ZETTEN 
30 !'W2DERFEIFES2 IKFE=LO 
108 P. $2$27$645 GOS, a 
118 
120 REM HIER EIGENLIJKE CODE MAKEN 
138 
148 Z=#23005 DIMLL2:LLO=KFFF LL I= OsLL2elL0 
158 F. I=1T02;P=Z 
168C:LLOJSRLL1 ; JMPHFESS 
17@:LL1 PHA:PHA:LDA#FE: BEQLLZ 
188 PLAS JMP#FEFC 
19@:LL2 PLA: JMPHFF DB ; TiN. 
200 REM VECTOR ZETTEN 
218 I#20B=LLOK2SE s R20I=LLD/ 25E 
220 
258 REM EN LATEN ZIEN DAT DE $3 NU NIET 
248 REM DE PRINTER AFZET, MAAR OP DE 
258 REM CONDENSED PRINTMODE DVERGRAT. 
280 P.S: #FE=DIP. $27$66$E:?#FE=105 GOS. a 
270 END 
28B REM ZET EEN RIJ MET LETTERS A OP PAPIER 
29@aF. I=0TO 321P. SESIN. 3P." STIR, 
hmmm ns, 


Dit Proaramma geeft U beeld van wat de Atom 'ziet' ais hij een 
pProefamma laadt. 


® REM )>-->COSSCOOP(--({ 2784 

18 DIM LL4, BHILDDS Z=1805527 sWet1 005 B=BEHFFOR+W: GOS. at GOS. a 
20 D, CLEARGGA=IEFLI. LLOFMOVE-1, 25 F. X=OT. Wi DRAWX: (B? X/AKSHZ) SN. 
TÔ V=-WiR=ZZilI. LLOSF, I=1EOT. 55. -185MDVE-Ws It Y=Y+WEF. X=0T. W 
AB DRAWX, CHIEK+YI/AES+ID iN, FK. Ke, Ks I= 
SU N. 5D. K. KsU. Ki. OD 
EOaDIMP-1;P, $215C:LLO:LDKAD: STXHBOILDKOB/25E:LDYOOS :LL4STXHEL 
7D :LL2 PHA: AND#BUD2; STACHBD) , Y5 PLA: INCHEDS BNELL 25 INX 
80 CPXOE/25E+1E: BCCLLAIRTSI IP. SEER, 


195 REM Door J.R, Marks (Resin Noord) 

110 REM Eerste reset is 2480 Hz, van Pcá, 

150 REM Over,se zestien resels komen van tape (PCS). 
158 rem C'K.K’ leest u als 'KEY K') 


Pac. 38 | ACORN NIEUWS [INT IKKEN EN RUNNEN MAAR Ì 

LOREM HEADER DISATOM 

ZOJ=1EIDIMLLJ?F. I=BTOJILLI=HEFF iN. ;DIMAAG 9=0 

3OP. +12" HEADER DISATOM * 

GOIN. °" "GEEF STARTADRES BV #5000 "ZiIF?18=2/256: 6. 48 
seP. $21;F, I=1TO23P=Z 

52E 

TO: :L Ls 3 JSRLLE: JMPHCHSE 

88s :LL 5; 3 JSRHCICB: INCHS 2; LDAHS23 ASLAFASLA 
SRASLA:FASLAFASLAFSTARCS 
199LDAALL1#25E :STAFDLOB; LDAALL1/ 256: STAHD203 

119RTS 

12@:LLtPHP 

13BPHA ; CMPD#ÉOA ; BELLA; LDAED + CMPBHIF 

140BNELLE 

150; :LL4: +LDA#DF ;CMPOKG1 : BNELLE + LDA#DE: CMPO#EO 
15BBNELLE 3 TYA: PHAs JSRHFDES :LDYSR20 

170JSRHFEGE 

188: :LLSs 3 INYiNOP5NOP5NOP3CPY&CH 

19QBCCLLSs JSRHFEOD : JSRÉFDES ; LDAARGB: JSRHFESS 
ZOBPLA: TRY 

ZIG: iLLE PLAS PLP5 JMPÉFESS 

Z2OIiN. :P.SEH12"CODE VAN "EZ" TOT "&P' GEND 

239 STARTADRES "82° "MET DE ACHTER HET STATEMENT 

240 OPGEGEVEN VARIABELE + TUSSEN 0-6, WORDT HET AANTAL REGELS 
255 VAN HET TEKSTKOPJE BEPAALT. IN HET DAARONDER GEVORMDE 
268 WINDOW KUNNEN DATALIJSTEN WORDEN AFGEDRUKT MET BEHOUD 
278 VAN DE KOLOM-TEKST. HEADER:,® ZET DE ROUTINE AF 
288 MET DE CURSOR KAN DATA IN DE KOPGESCHOVEN WORDEN 

298 DOK KAN IN DE KOP VANAF HET KEY-BOARD TEKST 

300 IN DE KOP WORDEN IN-GETOETST 


18 REM MUZIEK 

28 REM J.J. RIEFF 

28 PLAY B4, D4, 64 
4D PLAY Bá: Dá, 64 
50 PLAY B4: D4, G4 
68 PLAY Bá4, D4, GE 
72 PLAY C4, Eâ, 64 
88 PLAY C4, E&, 54 
9% PLAY C4, Eb 54 
129 PLAY C4, E&, 62 
112 PLAY Bá4: Dá4, G4 
128 PLAY Bá4: Dá4, 54 
138 PLAY Bá, Dá, 64 
149 PLAY B4: D4, 62 
PLAY D4: F#á, A4 
PLAY D4: Fb, A4 
PLAY Dá, F&4, A'à 
PLAY D4: F#i4, A'Z 
PLAY D'á: C'##4: D'4, D' #4 
PLAY E’4, F'á, F’#2 

PLAY D'4, C'&4, D'á, D' #4 
PLAY E'4, F'4, F'#4, G'4, G1 
GOTO 1% 





